branch: externals/detached
commit 3c7ac1730ff866f1a81a652f36d9b0307910a501
Author: Niklas Eklund <niklas.ekl...@posteo.net>
Commit: Niklas Eklund <niklas.ekl...@posteo.net>
Add session environment property getter
---
detached-compile.el | 2 +-
detached.el | 4 ++++
2 files changed, 5 insertions(+), 1 deletion(-)
diff --git a/detached-compile.el b/detached-compile.el
index 26b3926c18..d2507487a4 100644
--- a/detached-compile.el
+++ b/detached-compile.el
@@ -133,7 +133,7 @@ Optionally EDIT-COMMAND."
:type 'string)
(detached-session-start-command
detached-current-session
:type
'string))
- ,@(plist-get (detached--session-env
detached-current-session) :compilation-args)))))
+ ,@(detached-session-environment-property
detached-current-session :compilation-args)))))
(apply compilation-start args)))
(defun detached-compile--replace-modesetter ()
diff --git a/detached.el b/detached.el
index 21864b7f4b..84a3e0d3c8 100644
--- a/detached.el
+++ b/detached.el
@@ -1123,6 +1123,10 @@ This function uses the `notifications' library."
(plist-get (detached--session-action session) :callback)
#'ignore))
+(defun detached-session-environment-property (session property)
+ "Return PROPERTY from SESSION environment."
+ (plist-get (detached--session-env session) property))
+
(defun detached-session-status-function (session)
"Return SESSION's status function."
(or
