Use 'selective' inheritance when org-use-property-inheritance is a list

This symbol is mentioned in the org-entry-get documentation.
This commit is contained in:
Bram Schoenmakers 2023-04-16 08:25:14 +02:00
parent 45ecf64d55
commit f6751cc906

View file

@ -1803,7 +1803,7 @@ interpreted as nil or non-nil)."
(setf property (substring (symbol-name property) 1))) (setf property (substring (symbol-name property) 1)))
(list 'property property value (list 'property property value
:inherit (cond ((plist-member plist :inherit) (plist-get plist :inherit)) :inherit (cond ((plist-member plist :inherit) (plist-get plist :inherit))
((listp org-use-property-inheritance) nil) ((listp org-use-property-inheritance) ''selective)
(t org-use-property-inheritance))))) (t org-use-property-inheritance)))))
;; MAYBE: Should case folding be disabled for properties? What about values? ;; MAYBE: Should case folding be disabled for properties? What about values?
;; MAYBE: Support (property) without args. ;; MAYBE: Support (property) without args.