From: Juri Linkov <juri@jurta.org>
Date: Fri, 29 Sep 2006 20:52:30 +0000 (+0000)
Subject: (cperl-after-expr-p): Don't move point
X-Git-Tag: emacs-pretest-22.0.90~299
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d767a24697ebfe91486889a5a0374ed8cfaa8e7;p=emacs.git

(cperl-after-expr-p): Don't move point
to nil if there is no previous property change.
---

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index ad44753f352..69f4549a0bf 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -3914,12 +3914,14 @@ CHARS is a string that contains good characters to have before us (however,
 	(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