mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(cancel-debug-on-entry): Mention default in minibuffer prompt.

Browse Source
This commit is contained in:
Luc Teirlinck 2005-06-13 23:40:05 +00:00
parent 7efb41ae95
commit 922a9de306
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/emacs-lisp/debug.el
View File

@ -698,9 +698,9 @@ When called interactively, prompt for FUNCTION in the minibuffer.
To specify a nil argument interactively, exit with an empty minibuffer." To specify a nil argument interactively, exit with an empty minibuffer."
(interactive (interactive
(list (let ((name (list (let ((name
(completing-read "Cancel debug on entry (to function): " (completing-read
(mapcar 'symbol-name debug-function-list) "Cancel debug on entry to function (default: all functions): "
nil t))) (mapcar 'symbol-name debug-function-list) nil t)))
(when name (when name
(unless (string= name "") (unless (string= name "")
(intern name)))))) (intern name))))))