[elpa] externals/org 63b10621a0 1/4: org-sparse-tree: Fix matching property names containing "-"

[ELPA Syncer]

branch: externals/org
commit 63b10621a0f0df25c0e6f55d686917cd526f1e1d
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@posteo.net>

    org-sparse-tree: Fix matching property names containing "-"
    
    * lisp/org.el (org-sparse-tree): Escape "-" in property names.
    
    Reported-by: Fabian Kurmann <fabian.kurm...@uni-duesseldorf.de>
    Link: https://orgmode.org/list/87v87qprwq.fsf@localhost
---
 lisp/org.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lisp/org.el b/lisp/org.el
index 2e91dd508e..0ca0d2f7db 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -10922,6 +10922,9 @@ D      Show deadlines and scheduled items between a 
date range."
       ((?p ?P)
        (let* ((kwd (completing-read
                    "Property: " (mapcar #'list (org-buffer-property-keys))))
+              (kwd
+               ;; Escape "-" in property names.
+               (replace-regexp-in-string "-" "\\\\-" kwd))
              (value (completing-read
                      "Value: " (mapcar #'list (org-property-values kwd)))))
         (unless (string-match "\\`{.*}\\'" value)