[nongnu] elpa/sesman 43b0c9ef2a 026/100: [Fix #4] Rename lingering sesman-ensure-linked-session

[ELPA Syncer]

branch: elpa/sesman
commit 43b0c9ef2a9ba7608d27c24fb0daedc1deabf179
Author: Vitalie Spinu <spinuvit@gmail.com>
Commit: Vitalie Spinu <spinuvit@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)))