4c2b875348b4 — Mueen Nawaz 2 years ago
Force 'selective if inherit is chosen.
2 files changed, 4 insertions(+), 2 deletions(-)

M opel.el
M pelican.org
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