(MIPS2): Comment out define.

[gnu-emacs] / lisp / paths.el

diff --git a/lisp/paths.el b/lisp/paths.el
index 6f4975f3394ca84a7d1b706b0245c652a416419c..9e1b8f8e94a28793144a376402750e55fa4d70a5 100644 (file)
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -33,10 +33,10 @@
 
 (defvar Info-default-directory-list
   (let ((start (list "/usr/local/info/"
-                    "/usr/local/lib/info/"
-                    configure-info-directory)))
-    (or (member configure-info-directory start)
-       (setq start (nconc start (list configure-info-directory))))
+                    "/usr/local/lib/info/"))
+       (configdir (file-name-as-directory configure-info-directory)))
+    (or (member configdir start)
+       (setq start (nconc start (list configdir))))
     (or (member (expand-file-name "../info/" data-directory) start)
        (setq start
              (nconc start
@@ -68,13 +68,13 @@ Go to a local news spool if its value is nil, in which case `gnus-nntp-server'
 should be set to `(system-name)'.")
 
 (defvar gnus-local-domain nil
-  "Your domain name without your host name like: \"stars.flab.Fujitsu.CO.JP\"
-The DOMAINNAME environment variable is used instead if defined.  If
-the function `system-name' returns a fully qualified domain name, there is no
-need to define the name.")
+  "*Your domain name without a host name: for example, \"ai.mit.edu\".
+The DOMAINNAME environment variable is used instead if defined.
+If the function `system-name' returns a fully qualified domain name,
+there is no need to set this variable.")
 
-(defvar gnus-local-organization ""
-  "Your organization like: \"Fujitsu Laboratories Ltd., Kawasaki, Japan.\"
+(defvar gnus-local-organization nil
+  "*The name of your organization, as a string.
 The `ORGANIZATION' environment variable is used instead if defined.")
 
 (defvar mh-progs