/[emacs]/emacs/lisp/emacs-lisp/easy-mmode.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/easy-mmode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.51 by miles, Mon Sep 1 15:45:21 2003 UTC revision 1.52 by fx, Mon Oct 20 19:05:51 2003 UTC
# Line 1  Line 1 
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>
# Line 440  ENDFUN should return the end position (w Line 440  ENDFUN should return the end position (w
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)))

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26