Mercurial > emacs

diff lisp/emacs-lisp/easy-mmode.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 0769a73f1d18
children 503b88c15efc
line wrap: on
line diff
--- a/lisp/emacs-lisp/easy-mmode.el	Fri Oct 02 00:02:02 2009 +0000
+++ b/lisp/emacs-lisp/easy-mmode.el	Fri Oct 02 03:48:36 2009 +0000
@@ -533,7 +533,7 @@
                     (error "No next %s" ,name))
                 (goto-char (match-beginning 0))
                 (when (and (eq (current-buffer) (window-buffer (selected-window)))
-                           (interactive-p))
+                           (called-interactively-p 'interactive))
                   (let ((endpt (or (save-excursion
                                      ,(if endfun `(,endfun)
                                         `(re-search-forward ,re nil t 2)))