procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Another attempt to fix sql.el

Browse source 
* lisp/progmodes/sql.el (sql-product-interactive): Fix calculation
of the SQL buffer name.  (Bug#31446)
This commit is contained in:
Eli Zaretskii 2018-05-21 18:43:03 +03:00
parent b1b96d7cd9
commit 2981952b6c
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/progmodes/sql.el
View file

@ -4270,8 +4270,13 @@ the call to \\[sql-product-interactive] with
(if (string-prefix-p "*SQL: " new-name t) (if (string-prefix-p "*SQL: " new-name t)
new-name new-name
(concat "*SQL: " new-name "*"))) (concat "*SQL: " new-name "*")))
((eq new-name '(4)) ((equal new-name '(4))
(sql-rename-buffer new-name)) (concat
"*SQL: "
(read-string
"Buffer name (\"*SQL: XXX*\"; enter `XXX'): "
sql-alternate-buffer-name)
"*"))
(t (t
(format "*SQL: %s*" new-name))))) (format "*SQL: %s*" new-name)))))