From 7d767a24697ebfe91486889a5a0374ed8cfaa8e7 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Fri, 29 Sep 2006 20:52:30 +0000 Subject: [PATCH] (cperl-after-expr-p): Don't move point to nil if there is no previous property change. --- lisp/progmodes/cperl-mode.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 -- 2.39.2