diff options
| author | Juanma Barranquero | 2003-05-06 17:48:06 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2003-05-06 17:48:06 +0000 |
| commit | 25345117c201eeadade606262f0b9cfa46320ddc (patch) | |
| tree | 1ef2b6f9c80d91f79a5e5310e10f76b17ff4b240 | |
| parent | 23a7c4951086666c9f4c4ea8129862cd284495c7 (diff) | |
| download | emacs-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.el | 6 |
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. |
| 97 | See `mail-directory-requery'." | 97 | See `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. |
| 104 | In that case, one argument gets passed to the function, the partial string | 104 | In that case, one argument gets passed to the function, the partial string |
| 105 | entered so far." | 105 | entered 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. |
| 482 | Calls `mail-directory-function' and applies `mail-directory-parser' to output." | 482 | Calls `mail-directory-function' and applies `mail-directory-parser' to output." |
| 483 | (save-excursion | 483 | (save-excursion |
| 484 | (message "Querying directory...") | 484 | (message "Querying directory...") |