Mercurial > emacs

changeset 63363:8420228eae66

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cancel-debug-on-entry): Make the empty string argument obsolete.
author Lute Kamstra <lute@gnu.org>
date Mon, 13 Jun 2005 08:13:16 +0000
parents 8a4e1b582425
children 2dfdd18b7360
files lisp/emacs-lisp/debug.el
diffstat 1 files changed, 7 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/debug.el	Mon Jun 13 06:43:12 2005 +0000
+++ b/lisp/emacs-lisp/debug.el	Mon Jun 13 08:13:16 2005 +0000
@@ -693,16 +693,19 @@
 ;;;###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.
+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 nil)))
-	   (if name (intern name)))))
-  (if (and function (not (string= function "")))
+				 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