Commit 12fbf178 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent d1d1ddbd
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment