浏览代码

Merge branch 'maint'

Nick Dokos 10 年之前
父节点
当前提交
db0130468b
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      lisp/org-table.el

+ 2 - 2
lisp/org-table.el

@@ -3931,10 +3931,10 @@ With prefix ARG, apply the new formulas to the table."
 	(push org-table-current-begin-pos org-show-positions)
 	(let ((min (apply 'min org-show-positions))
 	      (max (apply 'max org-show-positions)))
-	  (set-window-start (selected-window) (point-min))
+	  (set-window-start (selected-window) min)
 	  (goto-char max)
 	  (or (pos-visible-in-window-p max)
-	      (set-window-start (selected-window) (point-max)))))
+	      (set-window-start (selected-window) max))))
       (select-window win))))
 
 (defun org-table-force-dataline ()