diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el index 65e94ba..88e1417 100644 --- a/lisp/progmodes/sql.el +++ b/lisp/progmodes/sql.el @@ -430,6 +430,7 @@ file. Since that is a plaintext file, this could be dangerous." :prompt-regexp "^mysql> " :prompt-length 6 :prompt-cont-regexp "^ -> " + :quotation "`" :syntax-alist ((?# . "< b")) :input-filter sql-remove-tabs-filter) @@ -465,6 +466,7 @@ file. Since that is a plaintext file, this could be dangerous." :prompt-regexp "^\\w*=[#>] " :prompt-length 5 :prompt-cont-regexp "^\\w*[-(][#>] " + :quotation "\"" :input-filter sql-remove-tabs-filter :terminator ("\\(^\\s-*\\\\g$\\|;\\)" . "\\g")) @@ -3768,6 +3770,9 @@ ENHANCED, displays additional details about each column." (user-error "No SQL interactive buffer found")) (unless name (user-error "No table name specified")) + (when (sql-get-product-feature sql-product :quotation) + (let ((quote (sql-get-product-feature sql-product :quotation))) + (setf name (format "%s%s%s" quote name quote)))) (sql-execute-feature sqlbuf (format "*List %s*" name) :list-table enhanced name)))