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

Fix vanilla-doom+ sandbox instance

Browse source 
Now initializes doom-modules correctly and suppresses an undo-tree
error.
This commit is contained in:
Henrik Lissner 2019-07-07 01:58:49 +02:00
parent 7c9e9a3446
commit 51c067cc4d
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
core/autoload/debug.el
View file

@ -143,21 +143,21 @@ markdown and copies it to your clipboard, ready to be pasted into bug reports!"
(prin1-to-string (prin1-to-string
(macroexp-progn (macroexp-progn
(append `((setq noninteractive nil (append `((setq noninteractive nil
debug-on-error t doom-debug-mode t
package--init-file-ensured t package--init-file-ensured t
package-user-dir ,package-user-dir package-user-dir ,package-user-dir
package-archives ',package-archives package-archives ',package-archives
user-emacs-directory ,doom-emacs-dir user-emacs-directory ,doom-emacs-dir
doom-modules-cache nil doom-modules-cache nil)
doom-modules ',doom-modules)) (with-eval-after-load 'undo-tree
;; undo-tree throws errors because `buffer-undo-tree' isn't
;; corrrectly initialized
(setq-default buffer-undo-tree (make-undo-tree))))
(pcase mode (pcase mode
(`vanilla-doom+ ; Doom core + modules - private config (`vanilla-doom+ ; Doom core + modules - private config
`((setq doom-private-dir "/tmp/does/not/exist") `((setq doom-private-dir "/tmp/does/not/exist")
(load-file ,user-init-file) (load-file ,user-init-file)
(after! undo-tree (setq doom-modules ',doom-modules)
;; undo-tree throws errors because `buffer-undo-tree'
;; isn't corrrectly initialized
(setq-default buffer-undo-tree (make-undo-tree)))
(maphash (lambda (key plist) (maphash (lambda (key plist)
(let ((doom--current-module key) (let ((doom--current-module key)
(doom--current-flags (plist-get plist :flags))) (doom--current-flags (plist-get plist :flags)))