mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-21 06:55:35 +00:00
Code

fixup! org-fold-core: Respect 'ignore-indirect optimization better

Browse Source
This commit is contained in:
Ihor Radchenko 2022-09-30 07:24:34 +08:00
parent e9781f1c08
commit fe1f4f2ccf
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-fold-core.el
View File

@ -461,7 +461,9 @@ If GLOBAL is non-nil, do not make the property unique in the BUFFER."
;; Using buffer-name is safe, since the only place where
;; buffer-local text property actually matters is an indirect
;; buffer, where the name cannot be same anyway.
(if global 'global
(if (or global
(memql 'ignore-indirect org-fold-core--optimise-for-huge-buffers))
'global
(sxhash (buffer-name (or buffer (current-buffer)))))))))
(defsubst org-fold-core-get-folding-spec-from-folding-prop (folding-prop)
@ -552,8 +554,7 @@ unless RETURN-ONLY is non-nil."
org-fold-core--property-symbol-cache))))
(prog1
local-prop
(unless (or return-only
(memql 'ignore-indirect org-fold-core--optimise-for-huge-buffers))
(unless return-only
(with-current-buffer buf
;; Update folding properties carried over from other
;; buffer (implying that current buffer is indirect