mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Recognize \' as a quoted quote in MySQL

Browse Source 
* lisp/progmodes/sql.el (sql-mode): Recognize \' as a quoted quote
in MySQL (bug#38302).
This commit is contained in:
Lars Ingebrigtsen 2022-06-19 15:31:04 +02:00
parent 94d76adde1
commit 46db98ece2
1 changed files with 27 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
lisp/progmodes/sql.el
View File

@ -4161,28 +4161,33 @@ must tell Emacs. Here's how to do that in your init file:
(setq-local sql-contains-names t)
(setq-local escaped-string-quote "'")
(setq-local syntax-propertize-function
(syntax-propertize-rules
;; Handle escaped apostrophes within strings.
("''"
(0
(if (save-excursion (nth 3 (syntax-ppss (match-beginning 0))))
(string-to-syntax ".")
(forward-char -1)
nil)))
;; Propertize rules to not have /- and -* start comments.
("\\(/-\\)" (1 "."))
("\\(-\\*\\)"
(1
(if (save-excursion
(not (ppss-comment-depth
(syntax-ppss (match-beginning 1)))))
;; If we're outside a comment, we don't let -*
;; start a comment.
(string-to-syntax ".")
;; Inside a comment, ignore it to avoid -*/ not
;; being interpreted as a comment end.
(forward-char -1)
nil)))))
(eval
'(syntax-propertize-rules
;; Handle escaped apostrophes within strings.
((if (eq sql-product 'mysql)
"\\\\'"
"''")
(0
(if (save-excursion
(nth 3 (syntax-ppss (match-beginning 0))))
(string-to-syntax ".")
(forward-char -1)
nil)))
;; Propertize rules to not have /- and -* start comments.
("\\(/-\\)" (1 "."))
("\\(-\\*\\)"
(1
(if (save-excursion
(not (ppss-comment-depth
(syntax-ppss (match-beginning 1)))))
;; If we're outside a comment, we don't let -*
;; start a comment.
(string-to-syntax ".")
;; Inside a comment, ignore it to avoid -*/ not
;; being interpreted as a comment end.
(forward-char -1)
nil))))
t))
;; Set syntax and font-face highlighting
;; Catch changes to sql-product and highlight accordingly
(sql-set-product (or sql-product 'ansi)) ; Fixes bug#13591