[elpa] externals/embark 7c62ba6 08/11: Hard code outline-mark-subtree for now

[ELPA Syncer]

branch: externals/embark
commit 7c62ba6b6015f6670938534231fcaa2428384531
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Hard code outline-mark-subtree for now
---
 embark.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/embark.el b/embark.el
index b695d56..7a80e7c 100644
--- a/embark.el
+++ b/embark.el
@@ -1905,7 +1905,9 @@ target."
                            new-targets
                            (or (cl-position-if
                                 (let ((desired-type
-                                       (if (eq action 'mark)
+                                       ;; TODO Introduce customizable variable,
+                                       ;; instead of hard-coding the mark 
commands.
+                                       (if (memq action '(mark 
outline-mark-subtree))
                                            'region
                                          (plist-get (car targets) :type))))
                                   (lambda (x)