Commit 2981952b authored by Eli Zaretskii's avatar Eli Zaretskii

Another attempt to fix sql.el

* lisp/progmodes/sql.el (sql-product-interactive): Fix calculation
of the SQL buffer name.  (Bug#31446)
parent b1b96d7c
......@@ -4270,8 +4270,13 @@ the call to \\[sql-product-interactive] with
(if (string-prefix-p "*SQL: " new-name t)
new-name
(concat "*SQL: " new-name "*")))
((eq new-name '(4))
(sql-rename-buffer new-name))
((equal new-name '(4))
(concat
"*SQL: "
(read-string
"Buffer name (\"*SQL: XXX*\"; enter `XXX'): "
sql-alternate-buffer-name)
"*"))
(t
(format "*SQL: %s*" new-name)))))
......
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