[elpa] externals-release/org 45ca597 4/4: lisp/ob-sql.el: Prevent from getting stuck with an error

[ELPA Syncer]

branch: externals-release/org
commit 45ca597f9656901f6bbb5124bee523a9c3428e2c
Author: Ivan Sokolov <ivan-p-sokolov@ya.ru>
Commit: Bastien Guerry <bzg@gnu.org>

    lisp/ob-sql.el: Prevent from getting stuck with an error
    
    * lisp/ob-sql.el (org-babel-edit-prep:sql): Prevent from getting
    stuck with an error.
    
    TINYCHANGE
---
 lisp/ob-sql.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/ob-sql.el b/lisp/ob-sql.el
index b9dd72b..ef8b9a4 100644
--- a/lisp/ob-sql.el
+++ b/lisp/ob-sql.el
@@ -98,7 +98,9 @@
 Set `sql-product' in Org edit buffer according to the
 corresponding :engine source block header argument."
   (let ((product (cdr (assq :engine (nth 2 info)))))
-    (sql-set-product product)))
+    (condition-case nil
+        (sql-set-product product)
+      (user-error "Cannot set `sql-product' in Org Src edit buffer"))))
 
 (defun org-babel-sql-dbstring-mysql (host port user password database)
   "Make MySQL cmd line args for database connection.  Pass nil to omit that 
arg."