mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-colview.el
View File

@ -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))