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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 334e939e58825a57b41ccf7b0aedf7db84e3def1..fe1aa5537a8c152d6356e91e09f132485615bd90 100644 (file)
--- 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 875723f154a18e69c98ca0518c450c16e2f5f212..818f35aa539f944e466d89b5e1ba56711da91450 100644 (file)
--- 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)))