# HG changeset patch # User Dave Love # Date 936444691 0 # Node ID d99b8e22ae796435776777ea6a75e4502e19b5a0 # Parent f329ed7625ee4b8421d54fc6ee3d3220006bf86d Make some doc strings obey the make-docfile convention. diff -r f329ed7625ee -r d99b8e22ae79 lisp/paths.el --- a/lisp/paths.el Sat Sep 04 11:29:26 1999 +0000 +++ b/lisp/paths.el Sat Sep 04 11:31:31 1999 +0000 @@ -32,6 +32,10 @@ ;;; Code: +;; Docstrings in this file should, where reasonable, follow the +;; conventions described in bindings.el, so that they get put in the +;; DOC file rather than in memory. + (defvar Info-default-directory-list (let* ((start (list "/usr/local/lib/info/" ;; This comes second so that, if it is the same @@ -80,9 +84,9 @@ (t "inews")) "Program to post news.") -(defvar gnus-default-nntp-server "" - ;; set this to your local server - "The name of the host running an NNTP server. +;; set this to your local server +(defvar gnus-default-nntp-server "" "\ +The name of the host running an NNTP server. The null string means use the local host as the server site.") (defvar gnus-nntp-service "nntp" @@ -90,16 +94,16 @@ 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-organization nil - "*The name of your organization, as a string. +(defvar gnus-local-organization nil "\ +*The name of your organization, as a string. The `ORGANIZATION' environment variable is used instead if defined.") -(defvar gnus-startup-file "~/.newsrc" - "The file listing groups to which user is subscribed. +(defvar gnus-startup-file "~/.newsrc" "\ +The file listing groups to which user is subscribed. Will use `gnus-startup-file'-SERVER instead if exists.") -(defvar rmail-file-name "~/RMAIL" - "Name of user's primary mail file.") +(defvar rmail-file-name "~/RMAIL" "\ +Name of user's primary mail file.") (defconst rmail-spool-directory (cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration) @@ -152,8 +156,8 @@ ((file-exists-p "/usr/bin/rsh") "/usr/bin/rsh") (t "rsh"))) -(defconst term-file-prefix (if (eq system-type 'vax-vms) "[.term]" "term/") - "If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\"))) +(defconst term-file-prefix (if (eq system-type 'vax-vms) "[.term]" "term/") "\ +If non-nil, Emacs startup does (load (concat term-file-prefix (getenv \"TERM\"))) You may set this variable to nil in your `.emacs' file if you do not wish the terminal-initialization file to be loaded.")