Parent Directory | Revision Log | Patch
revision 1.55 by monnier, Fri Apr 12 03:19:09 2002 UTC | revision 1.56 by monnier, Tue Jun 18 21:53:30 2002 UTC | |
---|---|---|
# | Line 633 If argument is nil or an empty string, c | Line 633 If argument is nil or an empty string, c |
633 | (interactive | (interactive |
634 | (list (let ((name | (list (let ((name |
635 | (completing-read "Cancel debug on entry (to function): " | (completing-read "Cancel debug on entry (to function): " |
636 | ;; Make an "alist" of the functions | (mapcar 'symbol-name debug-function-list) |
;; that now have debug on entry. | ||
(mapcar 'list | ||
(mapcar 'symbol-name | ||
debug-function-list)) | ||
637 | nil t nil))) | nil t nil))) |
638 | (if name (intern name))))) | (if name (intern name))))) |
639 | (debugger-reenable) | (debugger-reenable) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |