[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easy-mmode.el

[Dave Love]

Index: emacs/lisp/emacs-lisp/easy-mmode.el
diff -c emacs/lisp/emacs-lisp/easy-mmode.el:1.51 
emacs/lisp/emacs-lisp/easy-mmode.el:1.52
*** emacs/lisp/emacs-lisp/easy-mmode.el:1.51    Mon Sep  1 11:45:21 2003
--- emacs/lisp/emacs-lisp/easy-mmode.el Mon Oct 20 15:05:51 2003
***************
*** 1,6 ****
  ;;; easy-mmode.el --- easy definition for major and minor modes
  
! ;; Copyright (C) 1997, 2000, 2001, 2003 Free Software Foundation, Inc.
  
  ;; Author: Georges Brun-Cottan <address@hidden>
  ;; Maintainer: Stefan Monnier <address@hidden>
--- 1,6 ----
  ;;; easy-mmode.el --- easy definition for major and minor modes
  
! ;; Copyright (C) 1997, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
  
  ;; Author: Georges Brun-Cottan <address@hidden>
  ;; Maintainer: Stefan Monnier <address@hidden>
***************
*** 440,446 ****
         (interactive)
         (unless count (setq count 1))
         (if (< count 0) (,prev-sym (- count))
!          (if (looking-at ,re) (incf count))
           (if (not (re-search-forward ,re nil t count))
               (if (looking-at ,re)
                   (goto-char (or ,(if endfun `(,endfun)) (point-max)))
--- 440,446 ----
         (interactive)
         (unless count (setq count 1))
         (if (< count 0) (,prev-sym (- 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)))