aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2003-05-06 17:48:06 +0000
committerJuanma Barranquero2003-05-06 17:48:06 +0000
commit25345117c201eeadade606262f0b9cfa46320ddc (patch)
tree1ef2b6f9c80d91f79a5e5310e10f76b17ff4b240
parent23a7c4951086666c9f4c4ea8129862cd284495c7 (diff)
downloademacs-25345117c201eeadade606262f0b9cfa46320ddc.tar.gz
emacs-25345117c201eeadade606262f0b9cfa46320ddc.zip
(mail-directory-function, mail-directory-requery, mail-directory): Don't quote
nil and t in docstrings.
-rw-r--r--lisp/mail/mailalias.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index 0e22538011c..6d0c2e12125 100644
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -93,14 +93,14 @@ If `angles', they look like:
93 :group 'mailalias) 93 :group 'mailalias)
94 94
95(defcustom mail-directory-function nil 95(defcustom mail-directory-function nil
96 "*Function to get completions from directory service or `nil' for none. 96 "*Function to get completions from directory service or nil for none.
97See `mail-directory-requery'." 97See `mail-directory-requery'."
98 :type '(choice function (const nil)) 98 :type '(choice function (const nil))
99 :group 'mailalias) 99 :group 'mailalias)
100 100
101;; This is for when the directory is huge, or changes frequently. 101;; This is for when the directory is huge, or changes frequently.
102(defcustom mail-directory-requery nil 102(defcustom mail-directory-requery nil
103 "*When non-`nil' call `mail-directory-function' for each completion. 103 "*When non-nil call `mail-directory-function' for each completion.
104In that case, one argument gets passed to the function, the partial string 104In that case, one argument gets passed to the function, the partial string
105entered so far." 105entered so far."
106 :type 'boolean 106 :type 'boolean
@@ -478,7 +478,7 @@ PATTERN is the string we want to complete."
478 478
479 479
480(defun mail-directory (pattern) 480(defun mail-directory (pattern)
481 "Call directory to get names matching PATTERN or all if `nil'. 481 "Call directory to get names matching PATTERN or all if nil.
482Calls `mail-directory-function' and applies `mail-directory-parser' to output." 482Calls `mail-directory-function' and applies `mail-directory-parser' to output."
483 (save-excursion 483 (save-excursion
484 (message "Querying directory...") 484 (message "Querying directory...")