branch: elpa/sesman
commit 43b0c9ef2a9ba7608d27c24fb0daedc1deabf179
Author: Vitalie Spinu <spinu...@gmail.com>
Commit: Vitalie Spinu <spinu...@gmail.com>
[Fix #4] Rename lingering sesman-ensure-linked-session
---
sesman.el | 17 ++++++++---------
1 file changed, 8 insertions(+), 9 deletions(-)
diff --git a/sesman.el b/sesman.el
index d4a9f40ab3..67f8144629 100644
--- a/sesman.el
+++ b/sesman.el
@@ -118,7 +118,7 @@ Can be either a symbol, or a function returning a symbol.")
(setq cxt-type ctype)
val))
(reverse (sesman-context-types system))))
- (user-error "No local context of type %s" cxt-type))))
+ (error "No local context of type %s" cxt-type))))
(key (cons system ses-name))
(link (list key cxt-type cxt-val)))
(if (member cxt-type sesman-single-link-context-types)
@@ -270,16 +270,16 @@ Can be either a symbol, or a function returning a
symbol.")
"Restart sesman session."
(interactive)
(let* ((system (sesman--system))
- (old-session (sesman-ensure-linked-session system "Restart session:
")))
+ (old-session (sesman-ensure-session system "Restart session: ")))
(message "Restarting %s '%s' session" system (car old-session))
(sesman-restart-session system old-session)))
;;;###autoload
(defun sesman-quit (which)
"Terminate sesman session.
-When WHICH is nil, kill only the current session; when a single
-universal argument or 'linked, kill all linked session; when a
-double universal argument, t or 'all, kill all sessions."
+When WHICH is nil, kill only the current session; when a single universal
+argument or 'linked, kill all linked session; when a double universal argument,
+t or 'all, kill all sessions."
(interactive "P")
(let* ((system (sesman--system))
(sessions (sesman--on-C-u-u-sessions system which)))
@@ -297,10 +297,9 @@ double universal argument, t or 'all, kill all sessions."
;;;###autoload
(defun sesman-show-session-info (which)
"Display session(s) info.
-When WHICH is nil, show info for current session; when a single
-universal argument or 'linked, show info for all linked session;
-when a double universal argument or 'all, show info for all
-sessions."
+When WHICH is nil, show info for current session; when a single universal
+argument or 'linked, show info for all linked sessions; when a double universal
+argument or 'all, show info for all sessions."
(interactive "P")
(let* ((system (sesman--system))
(sessions (sesman--on-C-u-u-sessions system which)))
