Mercurial > emacs

comparison lisp/emacs-lisp/debug.el @ 63390:cb9b98ba1f83

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cancel-debug-on-entry): Mention default in minibuffer prompt.
author Luc Teirlinck <teirllm@auburn.edu>
date Mon, 13 Jun 2005 23:40:05 +0000
parents 8420228eae66
children feca8cc40862
comparison
equal deleted inserted replaced
63389:73a4ef6b8237 63390:cb9b98ba1f83
696 If FUNCTION is nil, cancel debug-on-entry for all functions. 696 If FUNCTION is nil, cancel debug-on-entry for all functions.
697 When called interactively, prompt for FUNCTION in the minibuffer. 697 When called interactively, prompt for FUNCTION in the minibuffer.
698 To specify a nil argument interactively, exit with an empty minibuffer." 698 To specify a nil argument interactively, exit with an empty minibuffer."
699 (interactive 699 (interactive
700 (list (let ((name 700 (list (let ((name
701 (completing-read "Cancel debug on entry (to function): " 701 (completing-read
702 (mapcar 'symbol-name debug-function-list) 702 "Cancel debug on entry to function (default: all functions): "
703 nil t))) 703 (mapcar 'symbol-name debug-function-list) nil t)))
704 (when name 704 (when name
705 (unless (string= name "") 705 (unless (string= name "")
706 (intern name)))))) 706 (intern name))))))
707 (if (and function 707 (if (and function
708 (not (string= function ""))) ; Pre 22.1 compatibility test. 708 (not (string= function ""))) ; Pre 22.1 compatibility test.