diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-06-18 21:53:30 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-06-18 21:53:30 +0000 |
| commit | cafbc9a5766b07835667846f28aa7fccc58d44d2 (patch) | |
| tree | 55262b32007ea2e07f481685cfc573b5fa656fcd /lisp/emacs-lisp | |
| parent | 91fc05b1ae036442400f51ba8a492cb91001e3e2 (diff) | |
| download | emacs-cafbc9a5766b07835667846f28aa7fccc58d44d2.tar.gz emacs-cafbc9a5766b07835667846f28aa7fccc58d44d2.tar.bz2 emacs-cafbc9a5766b07835667846f28aa7fccc58d44d2.zip | |
(cancel-debug-on-entry): Don't cons uselessly.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 8c81dbd0bd8..a0165a8d198 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -633,11 +633,7 @@ If argument is nil or an empty string, cancel for all functions." (interactive (list (let ((name (completing-read "Cancel debug on entry (to function): " - ;; Make an "alist" of the functions - ;; that now have debug on entry. - (mapcar 'list - (mapcar 'symbol-name - debug-function-list)) + (mapcar 'symbol-name debug-function-list) nil t nil))) (if name (intern name))))) (debugger-reenable) |