/[emacs]/emacs/lisp/emacs-lisp/debug.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/debug.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26