[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r117316: * lisp/help.el (where-is): Use `default' ar
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] trunk r117316: * lisp/help.el (where-is): Use `default' arg of completing-read. |
Date: |
Thu, 12 Jun 2014 02:19:02 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 117316
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=17705
author: Cameron Desautels <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2014-06-11 22:18:54 -0400
message:
* lisp/help.el (where-is): Use `default' arg of completing-read.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/help.el help.el-20091113204419-o5vbwnq5f7feedwu-280
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2014-06-12 02:14:45 +0000
+++ b/lisp/ChangeLog 2014-06-12 02:18:54 +0000
@@ -1,3 +1,7 @@
+2014-06-12 Cameron Desautels <address@hidden> (tiny change)
+
+ * help.el (where-is): Use `default' arg of completing-read (bug#17705).
+
2014-06-12 Kevin Ryde <address@hidden>
* files.el (auto-mode-alist): Map .ad files to xdefaults-mode
=== modified file 'lisp/help.el'
--- a/lisp/help.el 2014-04-09 03:37:56 +0000
+++ b/lisp/help.el 2014-06-12 02:18:54 +0000
@@ -517,8 +517,10 @@
(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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r117316: * lisp/help.el (where-is): Use `default' arg of completing-read.,
Stefan Monnier <=