mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

nnspool.el (news-path): Use eval-and-compile

Browse Source
This commit is contained in:
Katsumi Yamaoka 2012-05-25 06:43:29 +00:00
parent bc1b21bb4e
commit ec9d4b084a
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View File

@ -1,3 +1,7 @@
2012-05-25 Katsumi Yamaoka <yamaoka@jpl.org>
* nnspool.el (news-path): Use eval-and-compile.
2012-05-24 Glenn Morris <rgm@gnu.org>
* nnspool.el (news-directory, news-path, news-inews-program):

11
lisp/gnus/nnspool.el
View File

@ -34,11 +34,12 @@
;; Probably this entire thing should be obsolete.
;; It's only used to init nnspool-spool-directory, so why not just
;; set that variable's default directly?
(defvar news-directory (if (file-exists-p "/usr/spool/news/")
"/usr/spool/news/"
"/var/spool/news/")
"The root directory below which all news files are stored.")
(defvaralias 'news-path 'news-directory)
(eval-and-compile
(defvar news-directory (if (file-exists-p "/usr/spool/news/")
"/usr/spool/news/"
"/var/spool/news/")
"The root directory below which all news files are stored.")
(defvaralias 'news-path 'news-directory))
;; Ditto re obsolescence.
(defvar news-inews-program