Another attempt to fix sql.el

* lisp/progmodes/sql.el (sql-product-interactive): Fix calculation of the SQL buffer name. (Bug#31446)
2018-05-21 18:43:03 +03:00 · 2018-05-21 18:43:03 +03:00 · 2981952b6c
commit 2981952b6c
parent b1b96d7cd9
1 changed files with 7 additions and 2 deletions
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@ -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)))))