mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

Use called-interactively-p' instead of interactive-p'.

Browse source
This commit is contained in:
Juanma Barranquero 2009-10-02 03:48:36 +00:00
parent 12a3c28c78
commit 32226619c5
81 changed files with 375 additions and 204 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/easy-mmode.el
View file

@ -533,7 +533,7 @@ BODY is executed after moving to the destination location."
(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)))