From dddc971f0e58e775578623eb3f026dc43bdda48a Mon Sep 17 00:00:00 2001 From: Alan Mackenzie Date: Sat, 29 Aug 2020 19:29:54 +0000 Subject: [PATCH] CC Mode: Fix processing for when c-multiline-string-start-char is a character * lisp/progmodes/cc-mode.el (c-pps-to-string-delim) (c-multiline-string-check-final-quote): Replace c-clear-char-property by c-clear-syn-tab. (c-multiline-string-check-final-quote): Replace c-put-char-property by c-put-syn-tab. --- lisp/progmodes/cc-mode.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el index 066bec60091..74afeecf8f7 100644 --- a/lisp/progmodes/cc-mode.el +++ b/lisp/progmodes/cc-mode.el @@ -1163,7 +1163,7 @@ Note that the style variables are always made local to the buffer." (while (progn (parse-partial-sexp (point) end nil nil st-s 'syntax-table) (unless (bobp) - (c-clear-char-property (1- (point)) 'syntax-table)) + (c-clear-syn-tab (1- (point)))) (setq st-pos (point)) (and (< (point) end) (not (eq (char-before) ?\"))))) @@ -1196,7 +1196,7 @@ Note that the style variables are always made local to the buffer." t) (t ;; At a significant " - (c-clear-char-property (1- (point)) 'syntax-table) + (c-clear-syn-tab (1- (point))) (setq pos-ll (c-literal-limits) pos-lt (c-literal-type pos-ll)) nil))) @@ -1204,7 +1204,7 @@ Note that the style variables are always made local to the buffer." (cond ((bobp)) ((eq pos-lt 'string) - (c-put-char-property (1- (point)) 'syntax-table '(15))) + (c-put-syn-tab (1- (point)) '(15))) (t nil))))) (defvar c-fl-syn-tab-region nil) -- 2.39.5