diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2009-10-02 03:48:36 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2009-10-02 03:48:36 +0000 |
| commit | 32226619c5e563c384372b566000e5d37d783a61 (patch) | |
| tree | 216af4221d2ba868b45162679ce3a0462985c422 /lisp/help.el | |
| parent | 12a3c28c787e23801f40ea557a5c00b538968a52 (diff) | |
| download | emacs-32226619c5e563c384372b566000e5d37d783a61.tar.gz emacs-32226619c5e563c384372b566000e5d37d783a61.tar.bz2 emacs-32226619c5e563c384372b566000e5d37d783a61.zip | |
Use `called-interactively-p' instead of `interactive-p'.
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/help.el b/lisp/help.el index 8b5efc88d8d..141fa66436c 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -461,7 +461,8 @@ is specified by the variable `message-log-max'." To record all your input on a file, use `open-dribble-file'." (interactive) - (help-setup-xref (list #'view-lossage) (interactive-p)) + (help-setup-xref (list #'view-lossage) + (called-interactively-p 'interactive)) (with-help-window (help-buffer) (princ (mapconcat (lambda (key) (if (or (integerp key) (symbolp key) (listp key)) @@ -492,7 +493,8 @@ to display (default, the current buffer). BUFFER can be a buffer or a buffer name." (interactive) (or buffer (setq buffer (current-buffer))) - (help-setup-xref (list #'describe-bindings prefix buffer) (interactive-p)) + (help-setup-xref (list #'describe-bindings prefix buffer) + (called-interactively-p 'interactive)) (with-current-buffer buffer (describe-bindings-internal nil prefix))) @@ -721,7 +723,8 @@ temporarily enables it to allow getting help on disabled items and buttons." (if (or (null defn) (integerp defn) (equal defn 'undefined)) (message "%s%s is undefined" (help-key-description key untranslated) mouse-msg) - (help-setup-xref (list #'describe-function defn) (interactive-p)) + (help-setup-xref (list #'describe-function defn) + (called-interactively-p 'interactive)) ;; Don't bother user with strings from (e.g.) the select-paste menu. (when (stringp (aref key (1- (length key)))) (aset key (1- (length key)) "(any string)")) @@ -798,7 +801,7 @@ whose documentation describes the minor mode." (interactive "@") (unless buffer (setq buffer (current-buffer))) (help-setup-xref (list #'describe-mode buffer) - (interactive-p)) + (called-interactively-p 'interactive)) ;; For the sake of help-do-xref and help-xref-go-back, ;; don't switch buffers before calling `help-buffer'. (with-help-window (help-buffer) |