diff options
author | Richard M. Stallman <rms@gnu.org> | 1993-12-23 04:39:33 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1993-12-23 04:39:33 +0000 |
commit | 1b97553c648627f5581d60adf8bf73fdcf5f9a12 (patch) | |
tree | 122a15c1efafcd342becb9cad06b12e6da2e23c6 /lisp/apropos.el | |
parent | 63034cf9fe33dc1f7a364ea5170fe6abbc122cd1 (diff) | |
download | emacs-1b97553c648627f5581d60adf8bf73fdcf5f9a12.tar.gz |
(apropos-match-keys): If REGEXP is nil, always act as if it matched.
Diffstat (limited to 'lisp/apropos.el')
-rw-r--r-- | lisp/apropos.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index f147b0b182a..77f204ce874 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -268,7 +268,9 @@ Returns list of symbols and documentation found." ;; in alist, and is not shadowed by a different local binding, ;; record it (and (symbolp command) - (if regexp (string-match regexp (symbol-name command))) + (if regexp + (string-match regexp (symbol-name command)) + t) (setq item (assq command alist)) (if (or (vectorp sequence) (not (integerp key))) (setq key (vconcat sequence (vector key))) @@ -294,7 +296,9 @@ Returns list of symbols and documentation found." (setq command (cdr command))) ;; This is the same as the code in the previous case. (and (symbolp command) - (if regexp (string-match regexp (symbol-name command))) + (if regexp + (string-match regexp (symbol-name command)) + t) (setq item (assq command alist)) (if (or (vectorp sequence) (not (integerp key))) (setq key (vconcat sequence (vector key))) |