Explorar el Código

Merge branch 'maint'

Bastien Guerry hace 5 años
padre
commit
4394eaf0e2
Se han modificado 1 ficheros con 3 adiciones y 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
 Set `sql-product' in Org edit buffer according to the
 corresponding :engine source block header argument."
 corresponding :engine source block header argument."
   (let ((product (cdr (assq :engine (nth 2 info)))))
   (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)
 (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."
   "Make MySQL cmd line args for database connection.  Pass nil to omit that arg."