[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r108359: nnspool.el (news-path): Use
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r108359: nnspool.el (news-path): Use eval-and-compile |
Date: |
Fri, 25 May 2012 06:43:29 +0000 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r108359: nnspool.el (news-path): Use eval-and-compile,
Katsumi Yamaoka <=