From: Alan Mackenzie <acm@muc.de>
Date: Sat, 29 Aug 2020 19:29:54 +0000 (+0000)
Subject: CC Mode: Fix processing for when c-multiline-string-start-char is a character
X-Git-Tag: emacs-27.1.90~169
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dddc971f0e;p=emacs.git

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.
---

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)