branch: elpa/sesman
commit 1f5b2b2338f12f03766abf92ec5c08702320da2f
Author: Vitalie Spinu <[email protected]>
Commit: Vitalie Spinu <[email protected]>
More consistent empty prefix in sesman-info
---
sesman.el | 13 ++++++-------
1 file changed, 6 insertions(+), 7 deletions(-)
diff --git a/sesman.el b/sesman.el
index c1ad28cb8e..4983f85802 100644
--- a/sesman.el
+++ b/sesman.el
@@ -370,15 +370,14 @@ sessions."
(i 1)
(sessions (if all
(sesman-sessions system t)
- (sesman-current-sessions system))))
+ (sesman-current-sessions system)))
+ (empty-prefix (if (> (length sessions) 1) " " "")))
(if sessions
(message (mapconcat (lambda (ses)
- (let ((prefix (if (> (length sessions) 1)
- (if (sesman-relevant-session-p
system ses)
- (prog1 (format "%d " i)
- (setq i (1+ i)))
- " ")
- "")))
+ (let ((prefix (if (sesman-relevant-session-p
system ses)
+ (prog1 (format "%d " i)
+ (setq i (1+ i)))
+ empty-prefix)))
(sesman--format-session system ses prefix)))
sessions
"\n"))
