Explorar o código

Merge branch 'maint'

Bastien Guerry %!s(int64=4) %!d(string=hai) anos
pai
achega
4394eaf0e2
Modificáronse 1 ficheiros con 3 adicións e 1 borrados
  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."