(easy-mmode-define-navigation): Avoid

incf in macro expansion.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b12624ca3103768c94bca731a49d8864ddae7cc7..bbadba256d9311b5708713fd58f6a635a2273f0d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-20  Dave Love  <fx@gnu.org>
+
+       * emacs-lisp/easy-mmode.el (easy-mmode-define-navigation):  Avoid
+       incf in macro expansion.
+
 2003-10-20  John Paul Wallington  <jpw@gnu.org>
 
        * emacs-lisp/elint.el (elint-check-defcustom-form): Don't use

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index 9d73a8cdac8bc3f558a37932b72dda44dc6e851d..cdc4bc3aca0870ca047c12726955e1f6d0280f0a 100644 (file)
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -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)))