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/dired-x.el | |
| parent | 12a3c28c787e23801f40ea557a5c00b538968a52 (diff) | |
| download | emacs-32226619c5e563c384372b566000e5d37d783a61.tar.gz | |
Use `called-interactively-p' instead of `interactive-p'.
Diffstat (limited to 'lisp/dired-x.el')
| -rw-r--r-- | lisp/dired-x.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index e00cae3a80c..4da19f66c90 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -595,7 +595,7 @@ This functions works by temporarily binding `dired-marker-char' to `dired-omit-marker-char' and calling `dired-do-kill-lines'." (interactive "sOmit files (regexp): ") (if (and dired-omit-mode - (or (interactive-p) + (or (called-interactively-p 'interactive) (not dired-omit-size-limit) (< (buffer-size) dired-omit-size-limit) (progn @@ -1640,7 +1640,7 @@ Similarly for `dired-x-find-file-other-window' and `find-file-other-window'. Binding direction based on `dired-x-hands-off-my-keys'. This function is part of `after-init-hook'." (interactive) - (if (interactive-p) + (if (called-interactively-p 'interactive) (setq dired-x-hands-off-my-keys (not (y-or-n-p "Bind dired-x-find-file over find-file? ")))) (cond ((not dired-x-hands-off-my-keys) |