[Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el, v [EMACS_22_BASE]

[Vinicius Jose Latorre]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Vinicius Jose Latorre <viniciusjl>      07/08/17 18:58:32

Index: progmodes/cperl-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/cperl-mode.el,v
retrieving revision 1.89.2.3
retrieving revision 1.89.2.4
diff -u -b -r1.89.2.3 -r1.89.2.4
--- progmodes/cperl-mode.el     8 Aug 2007 07:31:10 -0000       1.89.2.3
+++ progmodes/cperl-mode.el     17 Aug 2007 18:58:32 -0000      1.89.2.4
@@ -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)