pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Reworked how frame-restore works

Browse source
This commit is contained in:
Benson Chu 2023-07-20 16:54:14 -05:00
parent 4d3f958834
commit 3f97a86ae6
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/frame-restore.el
View file

@ -34,18 +34,22 @@
(not (string= "F1" (frame-parameter frame 'name))))))
(visible-frame-list)))
(defvar fr/working-state nil)
;; Upon emacs startup, we have a valid working state
(defvar fr/working-state t)
(defvar fr/startup t)
(defun fr/give-up-working-state ()
(interactive)
(setq fr/working-state t))
(fr/give-up-working-state)
;; Whenever a new frame is created, and it's the first frame that's been
;; created, our working state has been wrecked.
(add-to-list 'server-after-make-frame-hook
(lambda (&rest _)
(if fr/startup
(setq fr/startup nil)
(when (<= (length (fr/non-tty-frames)) 1)
(setq fr/working-state nil))))
(setq fr/working-state nil)))))
(defun fr/save-if-appropriate (&rest _)
(interactive)