From: Katsumi Yamaoka Date: Fri, 25 May 2012 06:43:29 +0000 (+0000) Subject: nnspool.el (news-path): Use eval-and-compile X-Git-Tag: emacs-24.2.90~471^2~6^2~110^2~6 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec9d4b084a0057c0db31fb89d34b91b3d90c671e;p=emacs.git nnspool.el (news-path): Use eval-and-compile --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index e096b9b2b26..c917e81a175 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2012-05-25 Katsumi Yamaoka + + * nnspool.el (news-path): Use eval-and-compile. + 2012-05-24 Glenn Morris * nnspool.el (news-directory, news-path, news-inews-program): diff --git a/lisp/gnus/nnspool.el b/lisp/gnus/nnspool.el index fd079d909eb..ad9e9c62d6d 100644 --- a/lisp/gnus/nnspool.el +++ b/lisp/gnus/nnspool.el @@ -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