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

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     06/09/29 20:52:30

Index: cperl-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/cperl-mode.el,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -b -r1.78 -r1.79
--- cperl-mode.el       10 Jun 2006 09:05:31 -0000      1.78
+++ cperl-mode.el       29 Sep 2006 20:52:30 -0000      1.79
@@ -3914,12 +3914,14 @@
        (if (get-text-property (point) 'here-doc-group)
            (progn
              (goto-char
-              (previous-single-property-change (point) 'here-doc-group))
+              (or (previous-single-property-change (point) 'here-doc-group)
+                  (point)))
              (beginning-of-line 0)))
        (if (get-text-property (point) 'in-pod)
            (progn
              (goto-char
-              (previous-single-property-change (point) 'in-pod))
+              (or (previous-single-property-change (point) 'in-pod)
+                  (point)))
              (beginning-of-line 0)))
        (if (looking-at "^[ \t]*\\(#\\|$\\)") nil ; Only comment, skip
          ;; Else: last iteration, or a label