mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 13:11:14 -08:00
Code Issues 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)))