Mercurial > emacs

diff lisp/play/5x5.el @ 105372:bd2966850aac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use `called-interactively-p' instead of `interactive-p'.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 02 Oct 2009 03:48:36 +0000
parents 1382a0cd8022
children 1d1d5d9bd884
line wrap: on
line diff
--- a/lisp/play/5x5.el	Fri Oct 02 00:02:02 2009 +0000
+++ b/lisp/play/5x5.el	Fri Oct 02 03:48:36 2009 +0000
@@ -211,7 +211,8 @@
 (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