1999-12-11 Samir Barjoud <samir@mindspring.com>

        * help.el (where-is): use `commandp' as predicate for
        `completing-read'

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 334e939e588..fe1aa5537a8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-12-11  Samir Barjoud  <samir@mindspring.com>
+
+        * help.el (where-is): use `commandp' as predicate for
+        `completing-read'
+
 1999-12-10  Richard M. Stallman  <rms@caffeine.ai.mit.edu>
 
         * cus-edit.el (custom-save-delete): Delete all occurrences,
diff --git a/lisp/help.el b/lisp/help.el
index 875723f154a..818f35aa539 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -874,7 +874,7 @@ If INSERT (the prefix arg) is non-nil, insert the message in the buffer."
      (setq val (completing-read (if fn
                                     (format "Where is command (default %s): " fn)
                                   "Where is command: ")
-                                obarray 'fboundp t))
+                                obarray 'commandp t))
      (list (if (equal val "")
                fn (intern val))
            current-prefix-arg)))