698 |
To specify a nil argument interactively, exit with an empty minibuffer." |
To specify a nil argument interactively, exit with an empty minibuffer." |
699 |
(interactive |
(interactive |
700 |
(list (let ((name |
(list (let ((name |
701 |
(completing-read "Cancel debug on entry (to function): " |
(completing-read |
702 |
(mapcar 'symbol-name debug-function-list) |
"Cancel debug on entry to function (default: all functions): " |
703 |
nil t))) |
(mapcar 'symbol-name debug-function-list) nil t))) |
704 |
(when name |
(when name |
705 |
(unless (string= name "") |
(unless (string= name "") |
706 |
(intern name)))))) |
(intern name)))))) |