浏览代码

Merge branch 'maint'

Carsten Dominik 11 年之前
父节点
当前提交
bbe4d4c900
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      lisp/org-colview.el

+ 1 - 1
lisp/org-colview.el

@@ -1306,10 +1306,10 @@ PARAMS is a property list of parameters:
 			    (if (eq 'hline x) x (cons "" x)))
 			  tbl))
 	(setq tbl (append tbl (list (cons "/" (make-list nfields "<>"))))))
-      (setq pos (point))
       (when content-lines
 	(while (string-match "^#" (car content-lines))
 	  (insert (pop content-lines) "\n")))
+      (setq pos (point))
       (insert (org-listtable-to-string tbl))
       (when (plist-get params :width)
 	(insert "\n|" (mapconcat (lambda (x) (format "<%d>" (max 3 x)))