145
145
:type '(repeat string)
146
146
:group 'SQL )
147
147
148
- (defun sql-clickhouse-comint (product options )
148
+ (defun sql-clickhouse-comint (product options &optional buffname )
149
149
" Connect to ClickHouse in a comint buffer.
150
150
Argument PRODUCT name of the SQL product.
151
151
Argument OPTIONS additional options."
@@ -163,7 +163,7 @@ Argument OPTIONS additional options."
163
163
(unless (string= " " sql-server)
164
164
(list " -h" sql-server))
165
165
options)))
166
- (sql-comint product params)))
166
+ (sql-comint product params buffname )))
167
167
168
168
;;;### autoload
169
169
(defun sql-clickhouse (&optional buffer )
@@ -172,15 +172,14 @@ Optional argument BUFFER current buffer."
172
172
(interactive " P" )
173
173
(sql-product-interactive 'clickhouse buffer))
174
174
175
- (sql-add-product 'clickhouse " ClickHouse"
176
- :font-lock 'sql-clickhouse-font-lock-keywords
177
- :sqli-program 'sql-clickhouse-program
178
- :prompt-regexp " ^:) "
179
- :prompt-length 3
180
- :prompt-cont-regexp " ^:-] "
181
- :sqli-login 'sql-clickhouse-login-params
182
- :sqli-options 'sql-clickhouse-options
183
- :sqli-comint-func 'sql-clickhouse-comint )
175
+ (sql-add-product 'clickhouse " ClickHouse" '(:font-lock sql-clickhouse-font-lock-keywords
176
+ :sqli-program sql-clickhouse-program
177
+ :prompt-regexp " ^:) "
178
+ :prompt-length 3
179
+ :prompt-cont-regexp " ^:-] "
180
+ :sqli-login sql-clickhouse-login-params
181
+ :sqli-options sql-clickhouse-options
182
+ :sqli-comint-func sql-clickhouse-comint))
184
183
185
184
(provide 'sql-clickhouse )
186
185
0 commit comments