org-colview: Tiny speed-up

* lisp/org-colview.el (org-columns): Use buffer position instead of
  line number.
This commit is contained in:
Nicolas Goaziou 2015-06-02 22:01:06 +02:00
parent f1ee487218
commit 03936a50f4
1 changed files with 2 additions and 2 deletions

View File

@ -691,7 +691,7 @@ When COLUMNS-FMT-STRING is non-nil, use it as the column format."
(cache
(org-map-entries
(lambda ()
(cons (org-current-line)
(cons (point)
(mapcar
(lambda (p)
(cons p (org-entry-get nil p 'selective t)))
@ -711,7 +711,7 @@ When COLUMNS-FMT-STRING is non-nil, use it as the column format."
truncate-lines))
(setq truncate-lines t)
(dolist (x cache)
(org-goto-line (car x))
(goto-char (car x))
(org-columns-display-here (cdr x))))))))
(eval-when-compile (defvar org-columns-time))