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

diff --git a/lisp/apropos.el b/lisp/apropos.el
index f147b0b182a21f8a2080cd67f28b540892aba882..77f204ce87444668dafe9f94e026f1cbcdab94a5 100644 (file)
--- 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)))