mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(perl-indent-new-calculate): Recompute parse-start after jumping backward by

Browse Source 
a whole sexp.
This commit is contained in:
Stefan Monnier 2006-04-12 05:11:12 +00:00
parent 7ab3cbbb24
commit 16a3b9b72c
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2006-04-12 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/perl-mode.el (perl-indent-new-calculate):
Recompute parse-start after jumping backward by a whole sexp.
2006-04-11 Stefan Monnier <monnier@iro.umontreal.ca>
* vc.el (vc-ensure-vc-buffer): Only change current-buffer, not the

5
lisp/progmodes/perl-mode.el
View File

@ -721,7 +721,10 @@ changed by, or (parse-state) if line starts in a quoted string."
(save-excursion
(forward-char 1)
(forward-sexp -1)
(perl-indent-new-calculate 'virtual nil parse-start)))
(perl-indent-new-calculate
;; Recalculate the parsing-start, since we may have jumped
;; dangerously close (typically in the case of nested functions).
'virtual nil (save-excursion (perl-beginning-of-function)))))
(and (and (= (following-char) ?{)
(save-excursion (forward-char) (perl-hanging-paren-p)))
(+ (or default (perl-calculate-indent parse-start))