From 6c119ac0b46d8233c4582111f9c391044d207a87 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 20 Oct 2003 19:07:02 +0000 Subject: [PATCH] (easy-mmode-define-navigation): Avoid incf in macro expansion. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/easy-mmode.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b12624ca310..bbadba256d9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-10-20 Dave Love + + * emacs-lisp/easy-mmode.el (easy-mmode-define-navigation): Avoid + incf in macro expansion. + 2003-10-20 John Paul Wallington * 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 9d73a8cdac8..cdc4bc3aca0 100644 --- 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 ;; Maintainer: Stefan Monnier @@ -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))) -- 2.39.2