1 |
;;; easy-mmode.el --- easy definition for major and minor modes |
;;; easy-mmode.el --- easy definition for major and minor modes |
2 |
|
|
3 |
;; Copyright (C) 1997, 2000, 2001, 2003 Free Software Foundation, Inc. |
;; Copyright (C) 1997, 2000, 2001, 2002, 2003 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Georges Brun-Cottan <Georges.Brun-Cottan@inria.fr> |
;; Author: Georges Brun-Cottan <Georges.Brun-Cottan@inria.fr> |
6 |
;; Maintainer: Stefan Monnier <monnier@gnu.org> |
;; Maintainer: Stefan Monnier <monnier@gnu.org> |
440 |
(interactive) |
(interactive) |
441 |
(unless count (setq count 1)) |
(unless count (setq count 1)) |
442 |
(if (< count 0) (,prev-sym (- count)) |
(if (< count 0) (,prev-sym (- count)) |
443 |
(if (looking-at ,re) (incf count)) |
(if (looking-at ,re) (setq count (1+ count))) |
444 |
(if (not (re-search-forward ,re nil t count)) |
(if (not (re-search-forward ,re nil t count)) |
445 |
(if (looking-at ,re) |
(if (looking-at ,re) |
446 |
(goto-char (or ,(if endfun `(,endfun)) (point-max))) |
(goto-char (or ,(if endfun `(,endfun)) (point-max))) |