exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove possibly obsolete Org mode fix

Browse Source
This commit is contained in:
Daniel Borchmann 2022-05-22 17:20:19 +02:00
parent a45a19f904
commit fa7c7ca3ed
Signed by: exot
GPG Key ID: 1C7071A75BB72D64
1 changed files with 1 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
init.el
View File

@ -920,24 +920,7 @@
(unless (memq #'org-clock-save (unless (memq #'org-clock-save
(mapcar #'timer--function timer-list)) (mapcar #'timer--function timer-list))
(run-with-timer 0 3600 #'org-clock-save)) (run-with-timer 0 3600 #'org-clock-save))))
;; Hack: The default implementation is too slow, because it is
;; parsing all properties of an entry by default. Let’s simplify
;; this to only parse what we are looking for. This makes tag
;; search *much* faster!
(with-eval-after-load 'org
(defun org-cached-entry-get (pom property)
(if (or (eq t org-use-property-inheritance)
(and (stringp org-use-property-inheritance)
(let ((case-fold-search t))
(string-match-p org-use-property-inheritance property)))
(and (listp org-use-property-inheritance)
(member-ignore-case property org-use-property-inheritance)))
;; Caching is not possible, check it directly.
(org-entry-get pom property 'inherit)
;; This is different in the original implementation
(org-entry-get pom property))))))
;; Drag-and-Drop images into org-mode buffer ;; Drag-and-Drop images into org-mode buffer
(use-package org-download (use-package org-download