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/winner.el | |
parent | 12a3c28c787e23801f40ea557a5c00b538968a52 (diff) | |
download | emacs-32226619c5e563c384372b566000e5d37d783a61.tar.gz |
Use `called-interactively-p' instead of `interactive-p'.
Diffstat (limited to 'lisp/winner.el')
-rw-r--r-- | lisp/winner.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/winner.el b/lisp/winner.el index cf9fd2bee41..1a8a0952aa2 100644 --- a/lisp/winner.el +++ b/lisp/winner.el @@ -387,7 +387,8 @@ With arg, turn Winner mode on if and only if arg is positive." (setq winner-modified-list (frame-list)) (winner-save-old-configurations) (run-hooks 'winner-mode-hook) - (when (interactive-p) (message "Winner mode enabled"))) + (when (called-interactively-p 'interactive) + (message "Winner mode enabled"))) ;; Turn mode off (winner-mode (setq winner-mode nil) @@ -396,7 +397,8 @@ With arg, turn Winner mode on if and only if arg is positive." (remove-hook 'post-command-hook 'winner-save-conditionally) (remove-hook 'minibuffer-setup-hook 'winner-save-unconditionally) (run-hooks 'winner-mode-leave-hook) - (when (interactive-p) (message "Winner mode disabled")))))) + (when (called-interactively-p 'interactive) + (message "Winner mode disabled")))))) ;; Inspired by undo (simple.el) |