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

Don't compress auto-mode-alist

Browse source 
Modules may readd their entries afterwards, anyway.
This commit is contained in:
Henrik Lissner 2019-07-26 15:33:32 +02:00
parent 486e21ab44
commit c2ae6f30a5
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 1 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

20
core/cli/autoloads.el
View file

@ -336,25 +336,7 @@ them,and remove unnecessary `provide' statements or blank links."
them in Doom's autoloads file." them in Doom's autoloads file."
(doom-initialize-packages) (doom-initialize-packages)
(prin1 `(setq load-path ',load-path (prin1 `(setq load-path ',load-path
auto-mode-alist auto-mode-alist ',auto-mode-alist
',(let ((alist (copy-sequence auto-mode-alist))
newalist
last-group
last-mode
it)
(while (setq it (pop alist))
(cl-destructuring-bind (re . mode) it
(unless (eq mode last-mode)
(when last-mode
(push (cons (if (cdr last-group)
(concat "\\(?:" (string-join last-group "\\)\\|\\(?:") "\\)")
(car last-group))
last-mode)
newalist))
(setq last-mode mode
last-group nil))
(push re last-group)))
(nreverse newalist))
Info-directory-list ',Info-directory-list Info-directory-list ',Info-directory-list
doom-disabled-packages ',doom-disabled-packages) doom-disabled-packages ',doom-disabled-packages)
(current-buffer))) (current-buffer)))