Mercurial > emacs
comparison lisp/help.el @ 26805:45e359e91cbb
1999-12-11 Samir Barjoud <samir@mindspring.com>
* help.el (where-is): use `commandp' as predicate for
`completing-read'
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sat, 11 Dec 1999 23:44:45 +0000 |
| parents | 6af9f1dc59c4 |
| children | 1cc1c05b9ab7 |
comparison
equal
deleted
inserted
replaced
| 26804:ce54b1d60246 | 26805:45e359e91cbb |
|---|---|
| 872 (enable-recursive-minibuffers t) | 872 (enable-recursive-minibuffers t) |
| 873 val) | 873 val) |
| 874 (setq val (completing-read (if fn | 874 (setq val (completing-read (if fn |
| 875 (format "Where is command (default %s): " fn) | 875 (format "Where is command (default %s): " fn) |
| 876 "Where is command: ") | 876 "Where is command: ") |
| 877 obarray 'fboundp t)) | 877 obarray 'commandp t)) |
| 878 (list (if (equal val "") | 878 (list (if (equal val "") |
| 879 fn (intern val)) | 879 fn (intern val)) |
| 880 current-prefix-arg))) | 880 current-prefix-arg))) |
| 881 (let* ((keys (where-is-internal definition overriding-local-map nil nil)) | 881 (let* ((keys (where-is-internal definition overriding-local-map nil nil)) |
| 882 (keys1 (mapconcat 'key-description keys ", ")) | 882 (keys1 (mapconcat 'key-description keys ", ")) |