Explorar el Código

org-colview: Tiny speed-up

* lisp/org-colview.el (org-columns): Use buffer position instead of
  line number.
Nicolas Goaziou hace 9 años
padre
commit
03936a50f4
Se han modificado 1 ficheros con 2 adiciones y 2 borrados
  1. 2 2
      lisp/org-colview.el

+ 2 - 2
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))