[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el,v
From: |
Vinicius Jose Latorre |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el,v |
Date: |
Fri, 17 Aug 2007 18:57:48 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Vinicius Jose Latorre <viniciusjl> 07/08/17 18:57:47
Index: progmodes/cperl-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/cperl-mode.el,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -b -r1.92 -r1.93
--- progmodes/cperl-mode.el 13 Aug 2007 13:40:57 -0000 1.92
+++ progmodes/cperl-mode.el 17 Aug 2007 18:57:47 -0000 1.93
@@ -3736,8 +3736,12 @@
(set-syntax-table reset-st))))
(defsubst cperl-look-at-leading-count (is-x-REx e)
- (if (re-search-forward (concat "\\=" (if is-x-REx "[ \t\n]*" "") "[{?+*]")
- (1- e) t) ; return nil on failure, no moving
+ (if (and (> (point) e)
+ ;; return nil on failure, no moving
+ (re-search-forward (concat "\\="
+ (if is-x-REx "[ \t\n]*" "")
+ "[{?+*]")
+ (1- e) t))
(if (eq ?\{ (preceding-char)) nil
(cperl-postpone-fontification
(1- (point)) (point)
@@ -4785,7 +4789,8 @@
(progn
(cperl-postpone-fontification
(1- e1) e1 'face my-cperl-delimiters-face)
- (if (assoc (char-after b) cperl-starters)
+ (if (and (not (eobp))
+ (assoc (char-after b) cperl-starters))
(progn
(cperl-postpone-fontification
b1 (1+ b1) 'face my-cperl-delimiters-face)
- [Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el,v, Glenn Morris, 2007/08/03
- [Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el,v, Miles Bader, 2007/08/13
- [Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el,v,
Vinicius Jose Latorre <=
- [Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el,v, Dan Nicolaescu, 2007/08/25
- [Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el,v, Miles Bader, 2007/08/27