Small speed-up for `org-collect-keywords'

* lisp/org.el (org--collect-keywords-1): Do not really activate Org mode in setup files.
2020-04-28 09:50:46 +02:00 · 2020-04-28 09:50:46 +02:00 · c672651fef
parent 80865bab64
commit c672651fef
1 changed files with 8 additions and 6 deletions
--- a/lisp/org.el
+++ b/lisp/org.el
@ -4500,12 +4500,14 @@ directory."
 			 (let ((contents (org-file-contents uri :noerror)))
 			   (when contents
 			     (insert contents)
-			     (let ((org-inhibit-startup t)) (org-mode))
-			     (setq alist
-				   (org--collect-keywords-1
-				    keywords unique directory
-				    (cons uri files)
-				    alist)))))))))
+			     ;; Fake Org mode: `org-element-at-point'
+			     ;; doesn't need full set-up.
+			     (let ((major-mode 'org-mode))
+			       (setq alist
+				     (org--collect-keywords-1
+				      keywords unique directory
+				      (cons uri files)
+				      alist))))))))))
 		(keyword
 		 (let ((entry (assoc keyword alist))
 		       (final