Mercurial > emacs

comparison lisp/help-fns.el @ 68402:e1e34f1d35e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-function): Don't pass `nil' as default.
author Richard M. Stallman <rms@gnu.org>
date Thu, 26 Jan 2006 17:55:32 +0000
parents 3cc8c13facd3
children 9dadad58610c 9b150bc96d33 7432ca837c8d
comparison
equal deleted inserted replaced
68401:b393baae88e0 68402:e1e34f1d35e3
111 (enable-recursive-minibuffers t) 111 (enable-recursive-minibuffers t)
112 val) 112 val)
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)
120 (message "You didn't specify a function") 121 (message "You didn't specify a function")
121 (help-setup-xref (list #'describe-function function) (interactive-p)) 122 (help-setup-xref (list #'describe-function function) (interactive-p))