From: Filipp Gunbin <fgunbin@fastmail.fm>
Date: Wed, 11 Jul 2018 02:28:21 +0000 (+0300)
Subject: Fix Bug#32107
X-Git-Tag: emacs-27.0.90~4692
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d7151e98e9da5eeb4e341cfdb7d1f4462dc5b70;p=emacs.git

Fix Bug#32107

* lisp/progmodes/sql.el (sql-buffer-live-p): Fix handling of optional
  connection argument.  (Bug#32107)
---

diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index 223fb2ec936..ba180c2b26c 100644
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@@ -1270,8 +1270,9 @@ specified, it's `sql-product' or `sql-connection' must match."
            (and (derived-mode-p 'sql-interactive-mode)
                 (or (not product)
                     (eq product sql-product))
-                (or (stringp connection)
-                    (string= connection sql-connection)))))))
+                (or (not connection)
+                    (and (stringp connection)
+                         (string= connection sql-connection))))))))
 
 ;; Keymap for sql-interactive-mode.