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/ffap.el | |
| parent | 12a3c28c787e23801f40ea557a5c00b538968a52 (diff) | |
Use `called-interactively-p' instead of `interactive-p'.
Diffstat (limited to 'lisp/ffap.el')
| -rw-r--r-- | lisp/ffap.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index 3eb21a5366..939b287c52 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el @@ -360,7 +360,7 @@ Actual search is done by `ffap-next-guess'." "Like `ffap-next', but search with `ffap-url-regexp'." (interactive) (let ((ffap-next-regexp ffap-url-regexp)) - (if (interactive-p) + (if (called-interactively-p 'interactive) (call-interactively 'ffap-next) (ffap-next back wrap)))) @@ -1416,7 +1416,7 @@ If `ffap-require-prefix' is set, the prefix meaning is reversed. See also the variables `ffap-dired-wildcards', `ffap-newfile-prompt', and the functions `ffap-file-at-point' and `ffap-url-at-point'." (interactive) - (if (and (interactive-p) + (if (and (called-interactively-p 'interactive) (if ffap-require-prefix (not current-prefix-arg) current-prefix-arg)) ;; Do exactly the ffap-file-finder command, even the prompting: @@ -1624,7 +1624,7 @@ Return value: (find-file-at-point guess) guess) ; success: return non-nil (ffap-highlight t))) - ((interactive-p) + ((called-interactively-p 'interactive) (if ffap-at-mouse-fallback (call-interactively ffap-at-mouse-fallback) (message "No file or url found at mouse click.") @@ -1780,7 +1780,7 @@ ffap most of the time." (defun dired-at-point (&optional filename) "Start Dired, defaulting to file at point. See `ffap'." (interactive) - (if (and (interactive-p) + (if (and (called-interactively-p 'interactive) (if dired-at-point-require-prefix (not current-prefix-arg) current-prefix-arg)) |