From: Dave Love <fx@gnu.org>
Date: Sat, 11 Dec 1999 23:45:32 +0000 (+0000)
Subject: 1999-12-11  Samir Barjoud  <samir@mindspring.com>
X-Git-Tag: emacs-pretest-21.0.90~5801
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5f65532f39072d38485fc090951253d3b7e7f9b;p=emacs.git

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 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)))