[Emacs-diffs] /srv/bzr/emacs/trunk r108359: nnspool.el (news-path): Use eval-and-compile

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 108359
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2012-05-25 06:43:29 +0000
message:
  nnspool.el (news-path): Use eval-and-compile
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/nnspool.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-05-24 07:31:45 +0000
+++ b/lisp/gnus/ChangeLog       2012-05-25 06:43:29 +0000
@@ -1,3 +1,7 @@
+2012-05-25  Katsumi Yamaoka  <address@hidden>
+
+       * nnspool.el (news-path): Use eval-and-compile.
+
 2012-05-24  Glenn Morris  <address@hidden>
 
        * nnspool.el (news-directory, news-path, news-inews-program):

=== modified file 'lisp/gnus/nnspool.el'
--- a/lisp/gnus/nnspool.el      2012-05-24 07:31:45 +0000
+++ b/lisp/gnus/nnspool.el      2012-05-25 06:43:29 +0000
@@ -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