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

(sql-set-sqli-buffer): Call `sql-product-interactive' when no suitable buffer is available.

Browse source
This commit is contained in:
Sam Steingold 2014-09-08 09:57:19 -04:00
parent 04413dc3ba
commit 755958bc72
2 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -7,6 +7,8 @@
(sql-default-directory): New user option.
(sql-product-interactive): Bind `default-directory' to it to
enable remote connections using Tramp.
(sql-set-sqli-buffer): Call `sql-product-interactive' when no
suitable buffer is available.
2014-09-08 Glenn Morris <rgm@gnu.org>

7
lisp/progmodes/sql.el
View file

@ -3059,7 +3059,7 @@ If you call it from anywhere else, it sets the global copy of
(interactive)
(let ((default-buffer (sql-find-sqli-buffer)))
(if (null default-buffer)
(user-error "There is no suitable SQLi buffer")
(sql-product-interactive)
(let ((new-buffer (read-buffer "New SQLi buffer: " default-buffer t)))
(if (null (sql-buffer-live-p new-buffer))
(user-error "Buffer %s is not a working SQLi buffer" new-buffer)
@ -3075,10 +3075,9 @@ It is stored in the variable `sql-buffer'.
I
See also `sql-help' on how to create such a buffer."
(interactive)
(unless (and sql-buffer (buffer-live-p (get-buffer sql-buffer)))
(unless (and sql-buffer (buffer-live-p (get-buffer sql-buffer))
(get-buffer-process sql-buffer))
(sql-set-sqli-buffer))
(unless (get-buffer-process sql-buffer)
(user-error "Buffer %s has no process" sql-buffer))
(display-buffer sql-buffer))
(defun sql-make-alternate-buffer-name ()