Index: emacs/lisp/emacs-lisp/debug.el
diff -c emacs/lisp/emacs-lisp/debug.el:1.84 emacs/lisp/emacs-lisp/debug.el:1.85
*** emacs/lisp/emacs-lisp/debug.el:1.84 Sat Jun 11 23:52:51 2005
--- emacs/lisp/emacs-lisp/debug.el Mon Jun 13 08:13:16 2005
***************
*** 693,708 ****
;;;###autoload
(defun cancel-debug-on-entry (&optional function)
"Undo effect of \\[debug-on-entry] on FUNCTION.
! If argument is nil or an empty string, cancel for all functions.
When called interactively, prompt for FUNCTION in the minibuffer.
To specify a nil argument interactively, exit with an empty minibuffer."
(interactive
(list (let ((name
(completing-read "Cancel debug on entry (to function): "
(mapcar 'symbol-name debug-function-list)
! nil t nil)))
! (if name (intern name)))))
! (if (and function (not (string= function "")))
(progn
(let ((defn (debug-on-entry-1 function nil)))
(condition-case nil
--- 693,711 ----
;;;###autoload
(defun cancel-debug-on-entry (&optional function)
"Undo effect of \\[debug-on-entry] on FUNCTION.
! If FUNCTION is nil, cancel debug-on-entry for all functions.
When called interactively, prompt for FUNCTION in the minibuffer.
To specify a nil argument interactively, exit with an empty minibuffer."
(interactive
(list (let ((name
(completing-read "Cancel debug on entry (to function): "
(mapcar 'symbol-name debug-function-list)
! nil t)))
! (when name
! (unless (string= name "")
! (intern name))))))
! (if (and function
! (not (string= function ""))) ; Pre 22.1 compatibility test.
(progn
(let ((defn (debug-on-entry-1 function nil)))
(condition-case nil
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
