[elpa] externals/auto-overlays b02fbba 79/93: Added general accessor function auto-o-[regexp-]key-value.

[Stefan Monnier]

branch: externals/auto-overlays
commit b02fbba91a010b0f0bb960b968db7f16915264a6
Author: Toby S. Cubitt <toby-predictive@dr-qubit.org>
Commit: Toby S. Cubitt <toby-predictive@dr-qubit.org>

    Added general accessor function auto-o-[regexp-]key-value.
---
 auto-overlays.el | 26 ++++++++++++++++++--------
 1 file changed, 18 insertions(+), 8 deletions(-)

diff --git a/auto-overlays.el b/auto-overlays.el
index 9e08c75..e393d3b 100644
--- a/auto-overlays.el
+++ b/auto-overlays.el
@@ -298,37 +298,40 @@ Comparison is done with `eq'."
   (auto-o--plist-tail (cdr (auto-o-get-regexp set-id definition-id 
regexp-id))))
 
 
+(defun auto-o-regexp-key-value (set-id definition-id regexp-id key)
+  ;; Return value for KEY in regexp corresponding to SET-ID, DEFINITON-ID and
+  ;; REGEXP-ID.
+  (auto-o--plist-get (auto-o-get-regexp set-id definition-id regexp-id) key))
+
+
 (defun auto-o-regexp-edge (set-id definition-id regexp-id)
   ;; Return edge ('start or 'end) of regexp corresponding to SET-ID,
   ;; DEFINITION-ID and REGEXP-ID
-  (auto-o--plist-get (auto-o-get-regexp set-id definition-id regexp-id) :edge))
+  (auto-o-regexp-key-value set-id definition-id regexp-id :edge))
 
 
 (defun auto-o-regexp-match-exclusive (set-id definition-id regexp-id)
   ;; Return :exclusive property of regexp corresponding to SET-ID,
   ;; DEFINITION-ID and REGEXP-ID
-  (auto-o--plist-get (auto-o-get-regexp set-id definition-id regexp-id) 
:exclusive))
+  (auto-o-regexp-key-value set-id definition-id regexp-id :exclusive))
 
 
 (defun auto-o-regexp-parse-hook-function (set-id definition-id regexp-id)
   ;; Return parse hook function of regexp corresponding to SET-ID,
   ;; DEFINITION-ID and REGEXP-ID.
-  (auto-o--plist-get (auto-o-get-regexp set-id definition-id regexp-id)
-                    :parse-function))
+  (auto-o-regexp-key-value set-id definition-id regexp-id :parse-function))
 
 
 (defun auto-o-regexp-suicide-hook-function (set-id definition-id regexp-id)
   ;; Return suicide hook function of regexp corresponding to SET-ID,
   ;; DEFINITION-ID and REGEXP-ID.
-  (auto-o--plist-get (auto-o-get-regexp set-id definition-id regexp-id)
-                    :suicide-function))
+  (auto-o-regexp-key-value set-id definition-id regexp-id :suicide-function))
 
 
 (defun auto-o-regexp-match-hook-function (set-id definition-id regexp-id)
   ;; Return match hook function of regexp corresponding to SET-ID,
   ;; DEFINITION-ID and REGEXP-ID.
-  (auto-o--plist-get (auto-o-get-regexp set-id definition-id regexp-id)
-                    :match-function))
+  (auto-o-regexp-key-value set-id definition-id regexp-id :match-function))
 
 
 
@@ -368,6 +371,13 @@ Comparison is done with `eq'."
          (string-match (auto-o-regexp o-match) str)
          (match-string g str))))))
 
+(defun auto-o-key-value (o-match key)
+  ;; Return value of regexp KEY for match overlay O-MATCH.
+  (auto-o-regexp-key-value (overlay-get o-match 'set-id)
+                          (overlay-get o-match 'definition-id)
+                          (overlay-get o-match 'regexp-id)
+                          key))
+
 
 (defun auto-o-edge (o-match)
   ;; Return edge ('start or 'end) of match overlay O-MATCH