Mercurial > emacs
comparison lisp/progmodes/cperl-mode.el @ 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 | 7293b63aa3ba |
| children | f21883dcffa9 bb0e318b7c53 |
comparison
equal
deleted
inserted
replaced
| 73170:1ddd29aeaa3b | 73171:a72761a099d3 |
|---|---|
| 3912 ;;(memq (setq pr (get-text-property (point) 'syntax-type)) | 3912 ;;(memq (setq pr (get-text-property (point) 'syntax-type)) |
| 3913 ;; '(pod here-doc here-doc-delim)) | 3913 ;; '(pod here-doc here-doc-delim)) |
| 3914 (if (get-text-property (point) 'here-doc-group) | 3914 (if (get-text-property (point) 'here-doc-group) |
| 3915 (progn | 3915 (progn |
| 3916 (goto-char | 3916 (goto-char |
| 3917 (previous-single-property-change (point) 'here-doc-group)) | 3917 (or (previous-single-property-change (point) 'here-doc-group) |
| 3918 (point))) | |
| 3918 (beginning-of-line 0))) | 3919 (beginning-of-line 0))) |
| 3919 (if (get-text-property (point) 'in-pod) | 3920 (if (get-text-property (point) 'in-pod) |
| 3920 (progn | 3921 (progn |
| 3921 (goto-char | 3922 (goto-char |
| 3922 (previous-single-property-change (point) 'in-pod)) | 3923 (or (previous-single-property-change (point) 'in-pod) |
| 3924 (point))) | |
| 3923 (beginning-of-line 0))) | 3925 (beginning-of-line 0))) |
| 3924 (if (looking-at "^[ \t]*\\(#\\|$\\)") nil ; Only comment, skip | 3926 (if (looking-at "^[ \t]*\\(#\\|$\\)") nil ; Only comment, skip |
| 3925 ;; Else: last iteration, or a label | 3927 ;; Else: last iteration, or a label |
| 3926 (cperl-to-comment-or-eol) ; Will not move past "." after a format | 3928 (cperl-to-comment-or-eol) ; Will not move past "." after a format |
| 3927 (skip-chars-backward " \t") | 3929 (skip-chars-backward " \t") |