浏览代码

org-table: Fix failing tests

* lisp/org-table.el (org-table--shrink-columns): Use compatibility function.
Nicolas Goaziou 8 年之前
父节点
当前提交
7d1757f7d2
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      lisp/org-table.el

+ 1 - 1
lisp/org-table.el

@@ -3955,7 +3955,7 @@ COLUMNS is a sorted list of column numbers.  BEG and END are,
 respectively, the beginning position and the end position of the
 respectively, the beginning position and the end position of the
 table."
 table."
   (org-with-wide-buffer
   (org-with-wide-buffer
-   (font-lock-ensure beg end)
+   (org-font-lock-ensure beg end)
    (dolist (c columns)
    (dolist (c columns)
      (goto-char beg)
      (goto-char beg)
      (let ((width nil)
      (let ((width nil)