From 8dafacd0419ea890af461c9d42d4642155681eec Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 16 Jan 2016 15:06:04 -0500 Subject: * lisp/emacs-lisp/syntax.el (syntax-ppss-table): New var (syntax-ppss): * lisp/font-lock.el (font-lock-fontify-syntactically-region): Use it. --- lisp/font-lock.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/font-lock.el') diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 3c1f01d5886..c79835dda49 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -1564,6 +1564,7 @@ START should be at the beginning of a line." "Put proper face on each string and comment between START and END. START should be at the beginning of a line." (syntax-propertize end) ; Apply any needed syntax-table properties. + (with-syntax-table (or syntax-ppss-table (syntax-table)) (let ((comment-end-regexp (or font-lock-comment-end-skip (regexp-quote @@ -1598,7 +1599,7 @@ START should be at the beginning of a line." font-lock-comment-delimiter-face)))) (< (point) end)) (setq state (parse-partial-sexp (point) end nil nil state - 'syntax-table))))) + 'syntax-table)))))) ;;; End of Syntactic fontification functions. -- cgit v1.2.1