From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 23 Dec 1993 04:39:33 +0000 (+0000)
Subject: (apropos-match-keys): If REGEXP is nil, always act as if it matched.
X-Git-Tag: emacs-19.34~10554
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=12fbf178bb2ca7e953e867ebdb1c3a3aebc8d0c4;p=emacs.git

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

diff --git a/lisp/apropos.el b/lisp/apropos.el
index f147b0b182a..77f204ce874 100644
--- 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)))