Mercurial > emacs
changeset 5297:969ebd50eb72
(apropos-match-keys): If REGEXP is nil, always act as if it matched.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 23 Dec 1993 04:39:33 +0000 |
| parents | 81b21ef5290d |
| children | 1b3421a9f072 |
| files | lisp/apropos.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/apropos.el Thu Dec 23 04:38:57 1993 +0000 +++ b/lisp/apropos.el Thu Dec 23 04:39:33 1993 +0000 @@ -268,7 +268,9 @@ ;; 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 @@ (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)))