branch: elpa/yaml-mode
commit 97a58b3022de723582849790b2a7dee59aaad603
Author: Dmitry Gutov <[email protected]>
Commit: Dmitry Gutov <[email protected]>
Make sure not to pre-fill ppss cache with wrong entries
---
yaml-mode.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/yaml-mode.el b/yaml-mode.el
index 7c25cf2..ede67f9 100644
--- a/yaml-mode.el
+++ b/yaml-mode.el
@@ -266,9 +266,9 @@ that key is pressed to begin a block literal."
(when (get-text-property (point) 'yaml-block-literal)
(put-text-property (1- (point)) (point)
'syntax-table (string-to-syntax "w")))
- (let ((sps (syntax-ppss))
- (pt (point)))
- (when (nth 3 sps)
+ (let* ((pt (point))
+ (sps (save-excursion (syntax-ppss (1- pt)))))
+ (when (not (nth 8 sps))
(cond
((and (char-equal ?' (char-before (1- pt)))
(char-equal ?' (char-before pt)))
@@ -283,7 +283,7 @@ that key is pressed to begin a block literal."
(t
;; We're right after a quote that opens a string literal.
;; Skip over it (big speedup for long JSON strings).
- (goto-char (nth 8 sps))
+ (goto-char (1- pt))
(ignore-errors (forward-sexp)))))))))
(defun yaml-font-lock-block-literals (bound)
