branch: elpa/sesman
commit 5fc5934b5ff8dd60a8373a821910e2b3f50a7f5d
Author: Vitalie Spinu <spinu...@gmail.com>
Commit: Vitalie Spinu <spinu...@gmail.com>
Extend semantics of 'which' argument in interactive commands
---
sesman.el | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/sesman.el b/sesman.el
index d24ec3ff62..98a2c3b572 100644
--- a/sesman.el
+++ b/sesman.el
@@ -101,6 +101,15 @@ Can be either a symbol, or a function returning a symbol.")
(sesman-linked-sessions system))
((or (equal which '(16)) (eq which 'all) (eq which t))
(sesman--all-system-sessions system 'sort))
+ ;; session itself
+ ((and (listp which)
+ (or (stringp (car which))
+ (symbolp (car which))))
+ (list which))
+ ;; session name
+ ((or (stringp which)
+ (symbolp which)
+ (gethash (cons system which) sesman-sessions-hashmap)))
(t (error "Invalid which argument (%s)" which))))
(defun sesman--cap-system-name (system)
