[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el
From: |
Lute Kamstra |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el |
Date: |
Mon, 13 Jun 2005 04:13:16 -0400 |
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] Changes to emacs/lisp/emacs-lisp/debug.el, Richard M . Stallman, 2005/06/06
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el, Stefan Monnier, 2005/06/06
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el, Stefan Monnier, 2005/06/08
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el, Stefan Monnier, 2005/06/08
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el, Luc Teirlinck, 2005/06/11
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el,
Lute Kamstra <=
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el, Luc Teirlinck, 2005/06/13
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el, Lute Kamstra, 2005/06/14
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el, Lute Kamstra, 2005/06/23
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el, Stefan Monnier, 2005/06/30