Commit 845fe038 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

Fix buffer names in sql.el

* lisp/progmodes/sql.el (sql-product-interactive): Fix the way the
buffer name is determined by prefix arg.  (Bug#31446)
parent a3885f56
......@@ -4263,9 +4263,17 @@ the call to \\[sql-product-interactive] with
(funcall (sql-get-product-feature product :sqli-comint-func)
(sql-get-product-feature product :sqli-options)
(if (and new-name (string-prefix-p "SQL" new-name t))
(concat "SQL: " new-name))))
((zerop new-name)
((stringp new-name)
(if (string-prefix-p "*SQL: " new-name t)
(concat "*SQL: " new-name "*")))
((eq new-name '(4))
(sql-rename-buffer new-name))
(format "*SQL: %s*" new-name)))))
;; Set SQLi mode.
(let ((sql-interactive-product product))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment