mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-29 08:31:35 -08:00
Code Issues Projects Releases Wiki Activity

(easy-mmode-define-navigation): Avoid

Browse source 
incf in macro expansion.
This commit is contained in:
Dave Love 2003-10-20 19:07:02 +00:00
parent 748fb1aabd
commit 6c119ac0b4
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,6 +1,6 @@
;;; easy-mmode.el --- easy definition for major and minor modes
;; Copyright (C) 1997, 2000, 2001, 2003 Free Software Foundation, Inc.
;; Copyright (C) 1997, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
;; Author: Georges Brun-Cottan <Georges.Brun-Cottan@inria.fr>
;; Maintainer: Stefan Monnier <monnier@gnu.org>
@ -440,7 +440,7 @@ ENDFUN should return the end position (with or without moving point)."
(interactive)
(unless count (setq count 1))
(if (< count 0) (,prev-sym (- count))
(if (looking-at ,re) (incf count))
(if (looking-at ,re) (setq count (1+ count)))
(if (not (re-search-forward ,re nil t count))
(if (looking-at ,re)
(goto-char (or ,(if endfun `(,endfun)) (point-max)))