procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

CC Mode: Fix processing for when c-multiline-string-start-char is a character

Browse source 
* 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.
This commit is contained in:
Alan Mackenzie 2020-08-29 19:29:54 +00:00
parent 4a73fb9668
commit dddc971f0e
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/cc-mode.el
View file

@ -1163,7 +1163,7 @@ Note that the style variables are always made local to the buffer."
(while (progn (while (progn
(parse-partial-sexp (point) end nil nil st-s 'syntax-table) (parse-partial-sexp (point) end nil nil st-s 'syntax-table)
(unless (bobp) (unless (bobp)
(c-clear-char-property (1- (point)) 'syntax-table)) (c-clear-syn-tab (1- (point))))
(setq st-pos (point)) (setq st-pos (point))
(and (< (point) end) (and (< (point) end)
(not (eq (char-before) ?\"))))) (not (eq (char-before) ?\")))))
@ -1196,7 +1196,7 @@ Note that the style variables are always made local to the buffer."
t) t)
(t (t
;; At a significant " ;; At a significant "
(c-clear-char-property (1- (point)) 'syntax-table) (c-clear-syn-tab (1- (point)))
(setq pos-ll (c-literal-limits) (setq pos-ll (c-literal-limits)
pos-lt (c-literal-type pos-ll)) pos-lt (c-literal-type pos-ll))
nil))) nil)))
@ -1204,7 +1204,7 @@ Note that the style variables are always made local to the buffer."
(cond (cond
((bobp)) ((bobp))
((eq pos-lt 'string) ((eq pos-lt 'string)
(c-put-char-property (1- (point)) 'syntax-table '(15))) (c-put-syn-tab (1- (point)) '(15)))
(t nil))))) (t nil)))))
(defvar c-fl-syn-tab-region nil) (defvar c-fl-syn-tab-region nil)