forked from mirrors/org-mode
org-colview: Tiny speed-up
* lisp/org-colview.el (org-columns): Use buffer position instead of line number.
This commit is contained in:
parent
f1ee487218
commit
03936a50f4
|
@ -691,7 +691,7 @@ When COLUMNS-FMT-STRING is non-nil, use it as the column format."
|
||||||
(cache
|
(cache
|
||||||
(org-map-entries
|
(org-map-entries
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(cons (org-current-line)
|
(cons (point)
|
||||||
(mapcar
|
(mapcar
|
||||||
(lambda (p)
|
(lambda (p)
|
||||||
(cons p (org-entry-get nil p 'selective t)))
|
(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))
|
truncate-lines))
|
||||||
(setq truncate-lines t)
|
(setq truncate-lines t)
|
||||||
(dolist (x cache)
|
(dolist (x cache)
|
||||||
(org-goto-line (car x))
|
(goto-char (car x))
|
||||||
(org-columns-display-here (cdr x))))))))
|
(org-columns-display-here (cdr x))))))))
|
||||||
|
|
||||||
(eval-when-compile (defvar org-columns-time))
|
(eval-when-compile (defvar org-columns-time))
|
||||||
|
|
Loading…
Reference in a new issue