Remove possibly obsolete Org mode fix

This commit is contained in:
Daniel - 2022-05-22 17:20:19 +02:00
parent a45a19f904
commit fa7c7ca3ed
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 1 additions and 18 deletions

19
init.el
View File

@ -920,24 +920,7 @@
(unless (memq #'org-clock-save
(mapcar #'timer--function timer-list))
(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. Lets 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))))))
(run-with-timer 0 3600 #'org-clock-save))))
;; Drag-and-Drop images into org-mode buffer
(use-package org-download