浏览代码

Merge branch 'master' of orgmode.org:org-mode

Bastien Guerry 11 年之前
父节点
当前提交
0652a10bf3
共有 2 个文件被更改,包括 4 次插入2 次删除
  1. 2 1
      lisp/ob-sql.el
  2. 2 1
      lisp/ox-md.el

+ 2 - 1
lisp/ob-sql.el

@@ -123,7 +123,8 @@ This function is called by `org-babel-execute-src-block'."
 				    (org-babel-process-file-name in-file)
 				    (org-babel-process-file-name in-file)
 				    (org-babel-process-file-name out-file)))
 				    (org-babel-process-file-name out-file)))
 		    ('postgresql (format
 		    ('postgresql (format
-				  "psql --set=\"ON_ERROR_STOP=1\" -A -P footer=off -F \"\t\"  -f %s -o %s %s"
+				  "psql --set=\"ON_ERROR_STOP=1\" %s -A -P footer=off -F \"\t\"  -f %s -o %s %s"
+				  (if colnames-p "" "-t")
 				  (org-babel-process-file-name in-file)
 				  (org-babel-process-file-name in-file)
 				  (org-babel-process-file-name out-file)
 				  (org-babel-process-file-name out-file)
 				  (or cmdline "")))
 				  (or cmdline "")))

+ 2 - 1
lisp/ox-md.el

@@ -255,7 +255,8 @@ a communication channel."
 	      (off "[ ] "))
 	      (off "[ ] "))
 	    (let ((tag (org-element-property :tag item)))
 	    (let ((tag (org-element-property :tag item)))
 	      (and tag (format "**%s:** "(org-export-data tag info))))
 	      (and tag (format "**%s:** "(org-export-data tag info))))
-	    (org-trim (replace-regexp-in-string "^" "    " contents)))))
+	    (and contents
+		 (org-trim (replace-regexp-in-string "^" "    " contents))))))