emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Appease the holy byte-compiler

Browse source
This commit is contained in:
Henrik Lissner 2018-06-26 01:46:34 +02:00
parent d9e58e36e9
commit 6310236f51
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
modules/feature/workspaces/config.el
View file

@ -29,7 +29,7 @@ stored in `persp-save-dir'.")
;; If emacs is passed --restore, restore the last session on startup. This is ;; If emacs is passed --restore, restore the last session on startup. This is
;; particularly useful for the `+workspace/restart-emacs-then-restore' command. ;; particularly useful for the `+workspace/restart-emacs-then-restore' command.
(defun +workspaces-restore-last-session (&rest _) (defun +workspaces-restore-last-session (&rest _)
(add-hook 'emacs-startup-hook #'+workspace/load-session 'append)) (add-hook 'emacs-startup-hook #'+workspace/load-session :append))
(add-to-list 'command-switch-alist (cons "--restore" #'+workspaces-restore-last-session)) (add-to-list 'command-switch-alist (cons "--restore" #'+workspaces-restore-last-session))
@ -163,8 +163,8 @@ Uses `+workspaces-main' to determine the name of the main workspace."
(list tag (buffer-name buf) vars (list tag (buffer-name buf) vars
(buffer-name (buffer-base-buffer)))) (buffer-name (buffer-base-buffer))))
:load-function (lambda (savelist &rest _rest) :load-function (lambda (savelist &rest _rest)
(destructuring-bind (destructuring-bind (buf-name _vars base-buf-name &rest _)
(buf-name vars base-buf-name &rest _rest) (cdr savelist) (cdr savelist)
(push (cons buf-name base-buf-name) (push (cons buf-name base-buf-name)
+workspaces--indirect-buffers-to-restore) +workspaces--indirect-buffers-to-restore)
nil))) nil)))