diff options
Diffstat (limited to 'lisp/progmodes/cc-awk.el')
-rw-r--r-- | lisp/progmodes/cc-awk.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/progmodes/cc-awk.el b/lisp/progmodes/cc-awk.el index 9798f397491..e299f4fa8d2 100644 --- a/lisp/progmodes/cc-awk.el +++ b/lisp/progmodes/cc-awk.el @@ -754,14 +754,14 @@ (if (eq (char-after beg) ?_) (setq beg (1+ beg))) ;; First put the properties on the delimiters. - (cond ((eq end (point-max)) ; string/regexp terminated by EOB - (c-put-char-property beg 'syntax-table '(15))) ; (15) = "string fence" - ((/= (char-after beg) (char-after end)) ; missing end delimiter - (c-put-char-property beg 'syntax-table '(15)) - (c-put-char-property end 'syntax-table '(15))) - ((eq (char-after beg) ?/) ; Properly bracketed regexp - (c-put-char-property beg 'syntax-table '(7)) ; (7) = "string" - (c-put-char-property end 'syntax-table '(7))) + (cond ((eq end (point-max)) ; string/regexp terminated by EOB + (c-put-string-fence beg)) + ((/= (char-after beg) (char-after end)) ; missing end delimiter + (c-put-string-fence beg) + (c-put-string-fence end)) + ((eq (char-after beg) ?/) ; Properly bracketed regexp + (c-put-char-property beg 'syntax-table '(7)) ; (7) = "string" + (c-put-char-property end 'syntax-table '(7))) (t)) ; Properly bracketed string: Nothing to do. ;; Now change the properties of any escaped "s in the string to punctuation. (save-excursion |