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

Fix buffer names in sql.el

Browse source 
* lisp/progmodes/sql.el (sql-product-interactive): Fix the way the
buffer name is determined by prefix arg.  (Bug#31446)
This commit is contained in:
Eli Zaretskii 2018-05-20 10:25:26 +03:00
parent a3885f5653
commit 845fe038e7
1 changed files with 11 additions and 3 deletions

14
lisp/progmodes/sql.el
View file

@ -4263,9 +4263,17 @@ the call to \\[sql-product-interactive] with
(funcall (sql-get-product-feature product :sqli-comint-func)
product
(sql-get-product-feature product :sqli-options)
(if (and new-name (string-prefix-p "SQL" new-name t))
new-name
(concat "SQL: " new-name))))
(cond
((zerop new-name)
"*SQL*")
((stringp new-name)
(if (string-prefix-p "*SQL: " new-name t)
new-name
(concat "*SQL: " new-name "*")))
((eq new-name '(4))
(sql-rename-buffer new-name))
(t
(format "*SQL: %s*" new-name)))))
;; Set SQLi mode.
(let ((sql-interactive-product product))