[Emacs-diffs] emacs-26 2981952: Another attempt to fix sql.el

[Eli Zaretskii]

branch: emacs-26
commit 2981952b6ceaf3d93ed018fc7b7b2034cd10194b
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    Another attempt to fix sql.el
    
    * lisp/progmodes/sql.el (sql-product-interactive): Fix calculation
    of the SQL buffer name.  (Bug#31446)
---
 lisp/progmodes/sql.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index 1b2cdaf..e7d7494 100644
--- 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)))))