diff options
| author | Richard M. Stallman | 2006-01-26 17:55:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-01-26 17:55:32 +0000 |
| commit | 5effb4d80fc9627633c71b372f602b9de3295980 (patch) | |
| tree | ed60972c0f310b3edef95879ee95fbe2e2ed1099 | |
| parent | f36d46caffc209065f29e7e7fa8daa01994d2e88 (diff) | |
| download | emacs-5effb4d80fc9627633c71b372f602b9de3295980.tar.gz emacs-5effb4d80fc9627633c71b372f602b9de3295980.zip | |
(describe-function): Don't pass `nil' as default.
| -rw-r--r-- | lisp/help-fns.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 14ceacfd92f..32719275edd 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el | |||
| @@ -113,7 +113,8 @@ With ARG, you are asked to choose which language." | |||
| 113 | (setq val (completing-read (if fn | 113 | (setq val (completing-read (if fn |
| 114 | (format "Describe function (default %s): " fn) | 114 | (format "Describe function (default %s): " fn) |
| 115 | "Describe function: ") | 115 | "Describe function: ") |
| 116 | obarray 'fboundp t nil nil (symbol-name fn))) | 116 | obarray 'fboundp t nil nil |
| 117 | (and fn (symbol-name fn)))) | ||
| 117 | (list (if (equal val "") | 118 | (list (if (equal val "") |
| 118 | fn (intern val))))) | 119 | fn (intern val))))) |
| 119 | (if (null function) | 120 | (if (null function) |