diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-06-02 22:01:06 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-06-02 22:01:06 +0200 |
commit | 03936a50f4fe9a261577d467098ed1080c61cb6e (patch) | |
tree | 3bcba61cb7fd3381c82d9612c77a12bf1cee6389 | |
parent | f1ee487218da00962eb8b67d1f5ec1f54a5a04db (diff) | |
download | org-mode-03936a50f4fe9a261577d467098ed1080c61cb6e.tar.gz |
org-colview: Tiny speed-up
* lisp/org-colview.el (org-columns): Use buffer position instead of
line number.
-rw-r--r-- | lisp/org-colview.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el index c84b0eb..bc6b2dd 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -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)) |