(defun sess-save (&optional name)
"Save desktop with a name."
(interactive)
(desktop-save (concat my-desktop-session-dir sessions-name) t))
(defun sess-open (&optional name)
"Read desktop with a name."
(interactive)
(unless name
(setq name (my-desktop-get-session-name "Load session: ")
(setq sessions-name name)
(call-interactively 'sess-close))
;; (desktop-change-dir (my-desktop-session-dir) t))
(desktop-read (concat my-desktop-session-dir name)))
При восстановлении сессии не востанавливаются фреймы
desktop-restore-frames t
desktop-restore-forces-onscreen nil
;; desktop-restore-eage 12
desktop-load-locked-desktop t