# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756621573 0
# Node ID 969ebd50eb72f33bef94cf5fda79063936317a51
# Parent  81b21ef5290db0e0bddf61c65af4994881163f50
(apropos-match-keys): If REGEXP is nil, always act as if it matched.

diff -r 81b21ef5290d -r 969ebd50eb72 lisp/apropos.el
--- a/lisp/apropos.el	Thu Dec 23 04:38:57 1993 +0000
+++ b/lisp/apropos.el	Thu Dec 23 04:39:33 1993 +0000
@@ -268,7 +268,9 @@
 	       ;; 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 @@
 			(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)))