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/play | |
| parent | 12a3c28c787e23801f40ea557a5c00b538968a52 (diff) | |
| download | emacs-32226619c5e563c384372b566000e5d37d783a61.tar.gz | |
Use `called-interactively-p' instead of `interactive-p'.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/5x5.el | 3 | ||||
| -rw-r--r-- | lisp/play/yow.el | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/lisp/play/5x5.el b/lisp/play/5x5.el index 73edc965460..55fc5f32daf 100644 --- a/lisp/play/5x5.el +++ b/lisp/play/5x5.el @@ -211,7 +211,8 @@ Quit current game \\[5x5-quit-game]" (defun 5x5-new-game () "Start a new game of `5x5'." (interactive) - (when (if (interactive-p) (5x5-y-or-n-p "Start a new game? ") t) + (when (if (called-interactively-p 'interactive) + (5x5-y-or-n-p "Start a new game? ") t) (setq 5x5-x-pos (/ 5x5-grid-size 2) 5x5-y-pos (/ 5x5-grid-size 2) 5x5-moves 0 diff --git a/lisp/play/yow.el b/lisp/play/yow.el index 1c284d009ad..6d00a3a0b72 100644 --- a/lisp/play/yow.el +++ b/lisp/play/yow.el @@ -91,7 +91,7 @@ If called interactively, display a list of matches." (setq i (1+ i)))) (and matches (setq matches (sort matches 'string-lessp))) - (and (interactive-p) + (and (called-interactively-p 'interactive) (cond ((null matches) (message "No matches found.")) (t |