Merge: (property) Use 'selective argument to org-entry-get

Closes #346.  See also #356.

Reported-by: Bram Schoenmakers <https://github.com/bram85>
Co-developed-by: Bram Schoenmakers <https://github.com/bram85>

README.org

@@ -565,7 +565,7 @@ Simple links may also be written manually in either sexp or non-sexp form, like:
 
 *Fixes*
 
-+ Predicate ~property~ correctly uses the value of ~org-use-property-inheritance~ when not specified ([[https://github.com/alphapapa/org-ql/issues/356][#356]]).
++ Predicate ~property~ correctly uses the value of ~org-use-property-inheritance~ when not specified.  ([[https://github.com/alphapapa/org-ql/pull/346][#346]], [[https://github.com/alphapapa/org-ql/issues/356][#356]].  Thanks to [[https://github.com/bram85][Bram Schoenmakers]].)
 
 *Compatibility*
 

org-ql.el

@@ -1823,14 +1823,10 @@ interpreted as nil or non-nil)."
                  ;; otherwise would require ugly special-casing in the parsing).
                  (when (keywordp property)
                    (setf property (substring (symbol-name property) 1)))
-                 `(property ,property ,value
+                 (list 'property property value
-                            :inherit ,(if (plist-member plist :inherit)
+                       :inherit (cond ((plist-member plist :inherit) (plist-get plist :inherit))
-                                          (plist-get plist :inherit)
+                                      ((listp org-use-property-inheritance) ''selective)
-                                        ;; TODO: Add tests for these cases.
+                                      (t org-use-property-inheritance)))))
-                                        (pcase org-use-property-inheritance
-                                          (`nil nil) (`t t)
-                                          ((pred stringp) org-use-property-inheritance)
-                                          ((pred listp) `(quote ,org-use-property-inheritance)))))))
   ;; MAYBE: Should case folding be disabled for properties?  What about values?
   ;; MAYBE: Support (property) without args.
 

org-ql.info

@@ -1097,8 +1097,10 @@ File: README.info,  Node: 08-pre,  Next: 074,  Up: Changelog
    *Fixes*
 
    • Predicate ‘property’ correctly uses the value of
-     ‘org-use-property-inheritance’ when not specified (#356
+     ‘org-use-property-inheritance’ when not specified.  (#346
-     (https://github.com/alphapapa/org-ql/issues/356)).
+     (https://github.com/alphapapa/org-ql/pull/346), #356
+     (https://github.com/alphapapa/org-ql/issues/356).  Thanks to Bram
+     Schoenmakers (https://github.com/bram85).)
 
    *Compatibility*
 
@@ -1897,40 +1899,40 @@ Node: Links38723
 Node: Tips39410
 Node: Changelog39734
 Node: 08-pre40558
-Node: 07442864
+Node: 07442987
-Node: 07343091
+Node: 07343214
-Node: 07243823
+Node: 07243946
-Node: 07144742
+Node: 07144865
-Node: 0745551
+Node: 0745674
-Node: 06348475
+Node: 06348598
-Node: 06249006
+Node: 06249129
-Node: 06149311
+Node: 06149434
-Node: 0649879
+Node: 0650002
-Node: 05252935
+Node: 05253058
-Node: 05153237
+Node: 05153360
-Node: 0553662
+Node: 0553785
-Node: 04955193
+Node: 04955316
-Node: 04855475
+Node: 04855598
-Node: 04755824
+Node: 04755947
-Node: 04656233
+Node: 04656356
-Node: 04556641
+Node: 04556764
-Node: 04457002
+Node: 04457125
-Node: 04357361
+Node: 04357484
-Node: 04257564
+Node: 04257687
-Node: 04157725
+Node: 04157848
-Node: 0457972
+Node: 0458095
-Node: 03262073
+Node: 03262196
-Node: 03162476
+Node: 03162599
-Node: 0362673
+Node: 0362796
-Node: 02365973
+Node: 02366096
-Node: 02266207
+Node: 02266330
-Node: 02166487
+Node: 02166610
-Node: 0266692
+Node: 0266815
-Node: 0170770
+Node: 0170893
-Node: Notes70871
+Node: Notes70994
-Node: Comparison with Org Agenda searches71033
+Node: Comparison with Org Agenda searches71156
-Node: org-sidebar71922
+Node: org-sidebar72045
-Node: License72201
+Node: License72324
 
 End Tag Table