Commit 3adbe224 authored by Glenn Morris's avatar Glenn Morris
Browse files

Give some autoloaded things doc-strings.

* lisp/lpr.el (lpr-windows-system, lpr-lp-system):
* lisp/mail/binhex.el (binhex-begin-line):
* lisp/progmodes/grep.el (grep-history, grep-find-history):
* lisp/textmodes/flyspell.el:
* lisp/vc/pcvs-defs.el (cvs-global-menu):
* lisp/vc/vc-bzr.el (vc-bzr-admin-checkout-format-file):
* lisp/vc/vc-mtn.el (vc-mtn-admin-dir, vc-mtn-admin-format):
* lisp/vc/vc-cvs.el (vc-cvs-registered): Give them basic doc-strings.
parent 321decc8
2011-11-24 Glenn Morris <rgm@gnu.org>
* lpr.el (lpr-windows-system, lpr-lp-system):
* mail/binhex.el (binhex-begin-line):
* progmodes/grep.el (grep-history, grep-find-history):
* textmodes/flyspell.el:
* vc/pcvs-defs.el (cvs-global-menu):
* vc/vc-bzr.el (vc-bzr-admin-checkout-format-file):
* vc/vc-mtn.el (vc-mtn-admin-dir, vc-mtn-admin-format):
* vc/vc-cvs.el (vc-cvs-registered): Give them basic doc-strings.
* net/tls.el: Fix case of "GnuTLS".
* paths.el (rmail-file-name): Format doc-string for make-docfile.
......
......@@ -33,11 +33,13 @@
;;;###autoload
(defvar lpr-windows-system
(memq system-type '(ms-dos windows-nt)))
(memq system-type '(ms-dos windows-nt))
"Non-nil if running on MS-DOS or MS Windows.")
;;;###autoload
(defvar lpr-lp-system
(memq system-type '(usg-unix-v hpux irix)))
(memq system-type '(usg-unix-v hpux irix))
"Non-nil if running on a system type that uses the \"lp\" command.")
(defgroup lpr nil
......
......@@ -79,10 +79,11 @@ input and write the converted data to its standard output."
;;;###autoload
(defconst binhex-begin-line
"^:...............................................................$")
"^:...............................................................$"
"Regular expression matching the start of a BinHex encoded region.")
(defconst binhex-body-line
"^[^:]...............................................................$")
(defconst binhex-end-line ":$")
(defconst binhex-end-line ":$") ; unused
(defvar binhex-temporary-file-directory
(cond ((fboundp 'temp-directory) (temp-directory))
......
......@@ -438,9 +438,9 @@ This variable's value takes effect when `grep-compute-defaults' is called.")
;; History of grep commands.
;;;###autoload
(defvar grep-history nil)
(defvar grep-history nil "History list for grep.")
;;;###autoload
(defvar grep-find-history nil)
(defvar grep-find-history nil "History list for grep-find.")
;; History of lgrep and rgrep regexp and files args.
(defvar grep-regexp-history nil)
......
......@@ -466,7 +466,7 @@ See also `flyspell-duplicate-distance'."
;;*---------------------------------------------------------------------*/
;;* flyspell-mode ... */
;;*---------------------------------------------------------------------*/
;;;###autoload(defvar flyspell-mode nil)
;;;###autoload(defvar flyspell-mode nil "Non-nil if Flyspell mode is enabled.")
;;;###autoload
(define-minor-mode flyspell-mode
"Toggle on-the-fly spell checking (Flyspell mode).
......
......@@ -493,7 +493,8 @@ It is expected to call the function.")
(define-key m [examine]
`(menu-item ,(purecopy "Examine Directory") cvs-examine
:help ,(purecopy "Examine the current state of a workarea")))
(fset 'cvs-global-menu m)))
(fset 'cvs-global-menu m))
"Global menu used by PCL-CVS.")
;; cvs-1.10 and above can take file arguments in other directories
......
......@@ -124,7 +124,8 @@ Use the current Bzr root directory as the ROOT argument to
;; Used in the autoloaded vc-bzr-registered; see below.
;;;###autoload
(defconst vc-bzr-admin-checkout-format-file
(concat vc-bzr-admin-dirname "/checkout/format"))
(concat vc-bzr-admin-dirname "/checkout/format")
"Name of the format file in a .bzr directory.")
(defconst vc-bzr-admin-dirstate
(concat vc-bzr-admin-dirname "/checkout/dirstate"))
(defconst vc-bzr-admin-branch-format-file
......
......@@ -189,7 +189,8 @@ See also variable `vc-cvs-sticky-date-format-string'."
;;; State-querying functions
;;;
;;;###autoload (defun vc-cvs-registered (f)
;;;###autoload(defun vc-cvs-registered (f)
;;;###autoload "Return non-nil if file F is registered with CVS."
;;;###autoload (when (file-readable-p (expand-file-name
;;;###autoload "CVS/Entries" (file-name-directory f)))
;;;###autoload (load "vc-cvs")
......
......@@ -59,9 +59,10 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches."
(setq vc-handled-backends (delq 'Mtn vc-handled-backends)))
;;;###autoload
(defconst vc-mtn-admin-dir "_MTN")
(defconst vc-mtn-admin-dir "_MTN" "Name of the monotone directory.")
;;;###autoload
(defconst vc-mtn-admin-format (concat vc-mtn-admin-dir "/format"))
(defconst vc-mtn-admin-format (concat vc-mtn-admin-dir "/format")
"Name of the monotone directory's format file.")
;;;###autoload (defun vc-mtn-registered (file)
;;;###autoload (if (vc-find-root file vc-mtn-admin-format)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment