Use called-interactively-p' instead of interactive-p'.

This commit is contained in:
Juanma Barranquero 2009-10-02 03:48:36 +00:00
parent 12a3c28c78
commit 32226619c5
81 changed files with 375 additions and 204 deletions

View file

@ -873,7 +873,8 @@ To specify a nil argument interactively, exit with an empty minibuffer."
"Display a list of all the functions now set to debug on entry."
(interactive)
(require 'help-mode)
(help-setup-xref '(debugger-list-functions) (interactive-p))
(help-setup-xref '(debugger-list-functions)
(called-interactively-p 'interactive))
(with-output-to-temp-buffer (help-buffer)
(with-current-buffer standard-output
(if (null debug-function-list)