M opel.el +2 -1
@@ 751,7 751,8 @@
(defun opel--get-property (prop-name &optional INHERIT)
"Get a property of a node."
- (org-entry-get (point) prop-name INHERIT))
+ (let ((inherit (when INHERIT 'selective)))
+ (org-entry-get (point) prop-name inherit)))
(defun opel--build-level-regexp (level)
"Build the regular expression to match the number of stars in a heading."
M pelican.org +2 -1
@@ 1135,7 1135,8 @@ space.
#+BEGIN_SRC elisp
(defun opel--get-property (prop-name &optional INHERIT)
"Get a property of a node."
- (org-entry-get (point) prop-name INHERIT))
+ (let ((inherit (when INHERIT 'selective)))
+ (org-entry-get (point) prop-name inherit)))
#+END_SRC