Function: sesman-add-object

sesman-add-object is a byte-compiled function defined in sesman.el.

Signature

(sesman-add-object SYSTEM SESSION-NAME OBJECT &optional ALLOW-NEW)

Documentation

Add (destructively) OBJECT to session SESSION-NAME of SYSTEM.

If ALLOW-NEW is nil and session with SESSION-NAME does not exist throw an error, otherwise register a new session with session (list SESSION-NAME OBJECT).

Source Code

;; Defined in ~/.emacs.d/elpa/sesman-20240417.1723/sesman.el
(defun sesman-add-object (system session-name object &optional allow-new)
  "Add (destructively) OBJECT to session SESSION-NAME of SYSTEM.
If ALLOW-NEW is nil and session with SESSION-NAME does not exist
throw an error, otherwise register a new session with
session (list SESSION-NAME OBJECT)."
  (let* ((system (or system (sesman--system)))
         (session (sesman-session system session-name)))
    (if session
        (setcdr session (cons object (cdr session)))
      (if allow-new
          (sesman-register system (list session-name object))
        (error "%s session '%s' does not exist"
               (sesman--cap-system-name system) session-name)))))