[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el

[Lute Kamstra]

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