tags 682867 patch
thanks
On 2012-07-26 14:35:24 +0200, Vincent Lefevre wrote:
> It seems that CPerl doesn't detect the end of a long qq or qw.
Fixed by the following patch
http://bzr.savannah.gnu.org/lh/emacs/emacs-24/revision/108086
by Stefan Monnier (patch attached).
--
Vincent Lefèvre <vinc...@vinc17.net> - Web: <http://www.vinc17.net/>
100% accessible validated (X)HTML - Blog: <http://www.vinc17.net/blog/>
Work: CR INRIA - computer arithmetic / AriC project (LIP, ENS-Lyon)
--- lisp/progmodes/cperl-mode.el 2012-07-18 09:33:09 +0000
+++ lisp/progmodes/cperl-mode.el 2012-08-06 17:20:25 +0000
@@ -1838,7 +1838,13 @@
(set (make-local-variable 'cperl-syntax-done-to) nil)
(set (make-local-variable 'syntax-propertize-function)
(lambda (start end)
- (goto-char start) (cperl-fontify-syntaxically end))))
+ (goto-char start)
+ ;; Even if cperl-fontify-syntaxically has already gone
+ ;; beyond `start', syntax-propertize has just removed
+ ;; syntax-table properties between start and end, so we have
+ ;; to re-apply them.
+ (setq cperl-syntax-done-to start)
+ (cperl-fontify-syntaxically end))))
(make-local-variable 'parse-sexp-lookup-properties)
;; Do not introduce variable if not needed, we check it!
(set 'parse-sexp-lookup-properties t)
