branch: elpa/workroom
commit 4dbc8b58227b57e909e76da43a06bd21d35ca9cc
Author: Akib Azmain Turja <a...@disroot.org>
Commit: Akib Azmain Turja <a...@disroot.org>
Fix code injection to desktop file
---
workroom.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/workroom.el b/workroom.el
index 8e020c9926..f9f6a14fe2 100644
--- a/workroom.el
+++ b/workroom.el
@@ -1766,7 +1766,8 @@ any previous bookmark with the same name."
(when workroom-mode
(insert
"
-;; Workroom section:"
+;; Workroom section:
+"
(let ((fn-sym (intern (format "workroom--desktop-restore-%s"
(format-time-string "%s%N")))))
(prin1-to-string
@@ -1774,6 +1775,7 @@ any previous bookmark with the same name."
(defun ,fn-sym ()
"Restore workrooms."
(remove-hook 'desktop-after-read-hook #',fn-sym)
+ (fmakunbound #',fn-sym)
(when (bound-and-true-p workroom-mode)
(workroom--desktop-restore
',(list
