Browse Source

Merge branch 'maint'

Bastien Guerry 3 years ago
parent
commit
4394eaf0e2
1 changed files with 3 additions and 1 deletions
  1. 3 1
      lisp/ob-sql.el

+ 3 - 1
lisp/ob-sql.el

@@ -101,7 +101,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."