From 32226619c5e563c384372b566000e5d37d783a61 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/winner.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lisp/winner.el') 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) -- cgit v1.2.1