martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(apropos-match-keys): If REGEXP is nil, always act as if it matched.

Browse Source
This commit is contained in:
Richard M. Stallman
1993-12-23 04:39:33 +00:00
parent d1d1ddbd6a
commit 12fbf178bb
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/apropos.el
View File

@@ -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)))