Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
755958bc
Commit
755958bc
authored
Sep 08, 2014
by
Sam Steingold
Browse files
(sql-set-sqli-buffer): Call `sql-product-interactive' when no suitable buffer is available.
parent
04413dc3
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
4 deletions
+5
-4
lisp/ChangeLog
lisp/ChangeLog
+2
-0
lisp/progmodes/sql.el
lisp/progmodes/sql.el
+3
-4
No files found.
lisp/ChangeLog
View file @
755958bc
...
...
@@ -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>
...
...
lisp/progmodes/sql.el
View file @
755958bc
...
...
@@ -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
()
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment