From 12fbf178bb2ca7e953e867ebdb1c3a3aebc8d0c4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 23 Dec 1993 04:39:33 +0000 Subject: [PATCH] (apropos-match-keys): If REGEXP is nil, always act as if it matched. --- lisp/apropos.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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))) -- 2.39.5