1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00

(mail-directory-function, mail-directory-requery, mail-directory): Don't quote

nil and t in docstrings.
This commit is contained in:
Juanma Barranquero 2003-05-06 17:48:06 +00:00
parent 23a7c49510
commit 25345117c2

View File

@ -93,14 +93,14 @@ If `angles', they look like:
:group 'mailalias) :group 'mailalias)
(defcustom mail-directory-function nil (defcustom mail-directory-function nil
"*Function to get completions from directory service or `nil' for none. "*Function to get completions from directory service or nil for none.
See `mail-directory-requery'." See `mail-directory-requery'."
:type '(choice function (const nil)) :type '(choice function (const nil))
:group 'mailalias) :group 'mailalias)
;; This is for when the directory is huge, or changes frequently. ;; This is for when the directory is huge, or changes frequently.
(defcustom mail-directory-requery nil (defcustom mail-directory-requery nil
"*When non-`nil' call `mail-directory-function' for each completion. "*When non-nil call `mail-directory-function' for each completion.
In that case, one argument gets passed to the function, the partial string In that case, one argument gets passed to the function, the partial string
entered so far." entered so far."
:type 'boolean :type 'boolean
@ -478,7 +478,7 @@ PATTERN is the string we want to complete."
(defun mail-directory (pattern) (defun mail-directory (pattern)
"Call directory to get names matching PATTERN or all if `nil'. "Call directory to get names matching PATTERN or all if nil.
Calls `mail-directory-function' and applies `mail-directory-parser' to output." Calls `mail-directory-function' and applies `mail-directory-parser' to output."
(save-excursion (save-excursion
(message "Querying directory...") (message "Querying directory...")