mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-05 11:45:52 +00:00
Code

org--string-from-props: Fix handling folds in Emacs <28

Browse Source 
* lisp/org-macs.el (org--string-from-props): Respect
`char-property-alias-alist' when querying for `invisible' text
property.
This commit is contained in:
Ihor Radchenko 2022-01-29 18:28:11 +08:00
parent 444d1c50ac
commit 87babca898
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org-macs.el
View File

@ -903,14 +903,13 @@ delimiting S."
(cursor beg))
(while (setq beg (text-property-not-all beg end property nil s))
(let* ((next (next-single-property-change beg property s end))
(props (text-properties-at beg s))
(spec (plist-get props property))
(spec (get-text-property beg property s))
(value
(pcase property
(`invisible
;; If `invisible' property in PROPS means text is to
;; be invisible, return 0. Otherwise return nil so
;; as to resume search.
;; If `invisible' property means text is to be
;; invisible, return 0. Otherwise return nil so as
;; to resume search.
(and (or (eq t buffer-invisibility-spec)
(assoc-string spec buffer-invisibility-spec))
0))