Mercurial > emacs

comparison lisp/emacs-lisp/debug.el @ 45906:cacf84433461

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cancel-debug-on-entry): Don't cons uselessly.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 18 Jun 2002 21:53:30 +0000
parents 5496c590d5ad
children 4a0f567d3c5f
comparison
equal deleted inserted replaced
45905:20781c152651 45906:cacf84433461
631 "Undo effect of \\[debug-on-entry] on FUNCTION. 631 "Undo effect of \\[debug-on-entry] on FUNCTION.
632 If argument is nil or an empty string, cancel for all functions." 632 If argument is nil or an empty string, cancel for all functions."
633 (interactive 633 (interactive
634 (list (let ((name 634 (list (let ((name
635 (completing-read "Cancel debug on entry (to function): " 635 (completing-read "Cancel debug on entry (to function): "
636 ;; Make an "alist" of the functions 636 (mapcar 'symbol-name debug-function-list)
637 ;; that now have debug on entry.
638 (mapcar 'list
639 (mapcar 'symbol-name
640 debug-function-list))
641 nil t nil))) 637 nil t nil)))
642 (if name (intern name))))) 638 (if name (intern name)))))
643 (debugger-reenable) 639 (debugger-reenable)
644 (if (and function (not (string= function ""))) 640 (if (and function (not (string= function "")))
645 (progn 641 (progn