emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

emacs-27 dddc971: CC Mode: Fix processing for when c-multiline-string-st


From: Alan Mackenzie
Subject: emacs-27 dddc971: CC Mode: Fix processing for when c-multiline-string-start-char is a character
Date: Sat, 29 Aug 2020 15:32:56 -0400 (EDT)

branch: emacs-27
commit dddc971f0e58e775578623eb3f026dc43bdda48a
Author: Alan Mackenzie <acm@muc.de>
Commit: Alan Mackenzie <acm@muc.de>

    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 066bec6..74afeec 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]