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 066bec60091341b74053509d87fcea59da501099..74afeecf8f7ad3e00b0b3ae080706d2f5902347e 100644 (file)
--- 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)