From 4cf385d68a025220b1370304b171c08d8724f57d Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 2 Oct 2009 03:48:36 +0000 Subject: Use `called-interactively-p' instead of `interactive-p'. --- lisp/tutorial.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/tutorial.el') diff --git a/lisp/tutorial.el b/lisp/tutorial.el index 3290d67a99a..61c73fdd3c1 100644 --- a/lisp/tutorial.el +++ b/lisp/tutorial.el @@ -74,7 +74,7 @@ Where for the function it is remapped to)" (with-output-to-temp-buffer (help-buffer) (help-setup-xref (list #'tutorial--describe-nonstandard-key value) - (interactive-p)) + (called-interactively-p 'interactive)) (with-current-buffer (help-buffer) (insert "Your Emacs customizations override the default binding for this key:" @@ -323,7 +323,7 @@ LEFT and RIGHT are the elements to compare." "Give detailed help about changed keys." (with-output-to-temp-buffer (help-buffer) (help-setup-xref (list #'tutorial--detailed-help button) - (interactive-p)) + (called-interactively-p 'interactive)) (with-current-buffer (help-buffer) (let* ((tutorial-buffer (button-get button 'tutorial-buffer)) (explain-key-desc (button-get button 'explain-key-desc)) -- cgit v1.2.1