From e016b8f1529872128f756098368c45d2cbb0ae2e Mon Sep 17 00:00:00 2001 From: Cameron Desautels Date: Wed, 11 Jun 2014 22:18:54 -0400 Subject: [PATCH] * lisp/help.el (where-is): Use `default' arg of completing-read. Fixes: debbugs:17705 --- lisp/ChangeLog | 4 ++++ lisp/help.el | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 81b217c506a..d5422deef12 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2014-06-12 Cameron Desautels (tiny change) + + * help.el (where-is): Use `default' arg of completing-read (bug#17705). + 2014-06-12 Kevin Ryde * files.el (auto-mode-alist): Map .ad files to xdefaults-mode diff --git a/lisp/help.el b/lisp/help.el index 932270204c5..739eac4769d 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -517,8 +517,10 @@ If INSERT (the prefix arg) is non-nil, insert the message in the buffer." (if fn (format "Where is command (default %s): " fn) "Where is command: ") - obarray 'commandp t)) - (list (if (equal val "") fn (intern val)) current-prefix-arg))) + obarray 'commandp t nil nil + (and fn (symbol-name fn)))) + (list (unless (equal val "") (intern val)) + current-prefix-arg))) (unless definition (error "No command")) (let ((func (indirect-function definition)) (defs nil) -- 2.39.2