diff options
Diffstat (limited to 'lisp/apropos.el')
| -rw-r--r-- | lisp/apropos.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 6d8c7847b02..e7e8955afe8 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el | |||
| @@ -863,14 +863,12 @@ Optional arg BUFFER (default: current buffer) is the buffer to check." | |||
| 863 | (setq apropos-accumulator (cons (list symb (apropos-score-str var) nil var) | 863 | (setq apropos-accumulator (cons (list symb (apropos-score-str var) nil var) |
| 864 | apropos-accumulator)))))) | 864 | apropos-accumulator)))))) |
| 865 | (let ((apropos-multi-type nil)) | 865 | (let ((apropos-multi-type nil)) |
| 866 | (if (> emacs-major-version 20) | 866 | (apropos-print |
| 867 | (apropos-print | 867 | nil "\n----------------\n" |
| 868 | nil "\n----------------\n" | 868 | (format "Buffer `%s' has the following local variables\nmatching %s`%s':" |
| 869 | (format "Buffer `%s' has the following local variables\nmatching %s`%s':" | 869 | (buffer-name buffer) |
| 870 | (buffer-name buffer) | 870 | (if (consp pattern) "keywords " "") |
| 871 | (if (consp pattern) "keywords " "") | 871 | pattern)))) |
| 872 | pattern)) | ||
| 873 | (apropos-print nil "\n----------------\n")))) | ||
| 874 | 872 | ||
| 875 | ;;;###autoload | 873 | ;;;###autoload |
| 876 | (defun apropos-documentation (pattern &optional do-all) | 874 | (defun apropos-documentation (pattern &optional do-all) |