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

* lisp/progmodes/perl-mode.el (perl-syntax-propertize-special-constructs):

Browse Source 
Don't move backward, so as not to fall in an inf-loop.

Fixes: debbugs:7736
This commit is contained in:
Stefan Monnier 2011-01-24 15:10:04 -05:00
parent 21bb5ce0dd
commit ab0a61d0ac
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2011-01-24 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/perl-mode.el (perl-syntax-propertize-special-constructs):
Don't move backward, so as not to fall in an inf-loop (bug#7736).
* progmodes/ruby-mode.el (ruby-syntax-propertize-function): (bug#7735)
Handle ?" and friends differently (e.g. don't use backrefs).

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

@ -360,7 +360,8 @@ The expansion is entirely correct because it uses the C preprocessor."
(t
;; This is regexp like quote thingy.
(setq char (char-after (nth 8 state)))
(let ((twoargs (save-excursion
(let ((startpos (point))
(twoargs (save-excursion
(goto-char (nth 8 state))
(skip-syntax-backward " ")
(skip-syntax-backward "w")
@ -384,7 +385,8 @@ The expansion is entirely correct because it uses the C preprocessor."
(goto-char (1+ (nth 8 state)))
(up-list 1)
t)
(scan-error nil))
;; In case of error, make sure we don't move backward.
(scan-error (goto-char startpos) nil))
(not (or (nth 8 (parse-partial-sexp
(point) limit nil nil state 'syntax-table))
;; If we have a self-paired opener and a twoargs