# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 944955885 0
# Node ID 45e359e91cbbc943142c25779397d402601ef5a4
# Parent  ce54b1d60246cd1685d8aff2f36fda1bb7dddb0a
1999-12-11  Samir Barjoud  <samir@mindspring.com>

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

diff -r ce54b1d60246 -r 45e359e91cbb lisp/help.el
--- a/lisp/help.el	Fri Dec 10 21:52:33 1999 +0000
+++ b/lisp/help.el	Sat Dec 11 23:44:45 1999 +0000
@@ -874,7 +874,7 @@
      (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)))