[nongnu] elpa/sesman 37b9b50f8f 014/100: Get rid of -get- qualifier

[ELPA Syncer]

branch: elpa/sesman
commit 37b9b50f8ff84eaf689d0ed4e0b51a01fa7b2f75
Author: Vitalie Spinu <spinuvit@gmail.com>
Commit: Vitalie Spinu <spinuvit@gmail.com>

    Get rid of -get- qualifier
---
 README.md |  2 ++
 sesman.el | 20 +++++++++-----------
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/README.md b/README.md
index 21c4dd4122..56b67c64fa 100644
--- a/README.md
+++ b/README.md
@@ -58,3 +58,5 @@ Systems should link [sesman map][] into their key-maps 
(ideally on `C-c C-s`) an
 [geiser]: https://github.com/jaor/geiser
 [robe]: https://github.com/dgutov/robe
 [slime]: https://common-lisp.net/project/slime/
+
+[badge-license]: https://img.shields.io/badge/license-GPL_3-green.svg
diff --git a/sesman.el b/sesman.el
index fd3a7c022f..af6482a528 100644
--- a/sesman.el
+++ b/sesman.el
@@ -626,17 +626,15 @@ session (list SESSION-NAME OBJECT)."
 
 (defun sesman-remove-object (system session-name object &optional 
auto-unregister no-error)
   "Remove (destructively) OBJECT from session SESSION-NAME of SYSTEM.
-If SESSION-NAME is nil, retrieve the session with
-`sesman-session-for-object'.  If OBJECT is the last object in
-sesman session, `sesman-unregister' the session.  If
-AUTO-UNREGISTER is non-nil unregister sessions of length 0. If
-NO-ERROR is non-nil, don't throw an error if OBJECT is not found
-in any session.  This is useful if there are several
-\"concurrent\" parties which can remove the object."
+If SESSION-NAME is nil, retrieve the session with `sesman-session-for-object'.
+If OBJECT is the last object in sesman session, `sesman-unregister' the 
session.
+If AUTO-UNREGISTER is non-nil unregister sessions of length 0. If NO-ERROR is
+non-nil, don't throw an error if OBJECT is not found in any session. This is
+useful if there are several \"concurrent\" parties which can remove the 
object."
   (let* ((system (or system (sesman--system)))
          (session (if session-name
                       (sesman-session system session-name)
-                    (sesman-get-session-for-object system object no-error)))
+                    (sesman-session-for-object system object no-error)))
          (new-session (delete object session)))
     (cond ((null new-session))
           ((= (length new-session) 1)
@@ -645,7 +643,7 @@ in any session.  This is useful if there are several
           (t
            (puthash (cons system (car session)) new-session 
SESMAN-SESSIONS)))))
 
-(defun sesman-get-session-for-object (system object &optional no-error)
+(defun sesman-session-for-object (system object &optional no-error)
   "Retrieve SYSTEM session which contains OBJECT.
 When NO-ERROR is non-nil, don't throw an error if OBJECT is not part of any
 session.  In such case, return nil."
@@ -658,11 +656,11 @@ session.  In such case, return nil."
           (error "%s is not part of any %s sessions"
                  object system)))))
 
-(defun sesman-get-session-name-for-object (system object &optional no-error)
+(defun sesman-session-name-for-object (system object &optional no-error)
   "Retrieve the name of the SYSTEM's session containing OBJECT.
 When NO-ERROR is non-nil, don't throw an error if OBJCECT is not part of
 any session.  In such case, return nil."
-  (car (sesman-get-session-for-object system object no-error)))
+  (car (sesman-session-for-object system object no-error)))
 
 (defun sesman-more-recent-p (bufs1 bufs2)
   "Return t if BUFS1 is more recent than BUFS2.