Mercurial > emacs
changeset 73171:a72761a099d3
(cperl-after-expr-p): Don't move point
to nil if there is no previous property change.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Fri, 29 Sep 2006 20:52:30 +0000 |
| parents | 1ddd29aeaa3b |
| children | 177af1a9b5e3 |
| files | lisp/progmodes/cperl-mode.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/cperl-mode.el Fri Sep 29 18:54:51 2006 +0000 +++ b/lisp/progmodes/cperl-mode.el Fri Sep 29 20:52:30 2006 +0000 @@ -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