Skip to content

Commit

Permalink
Don't compress auto-mode-alist
Browse files Browse the repository at this point in the history
Modules may readd their entries afterwards, anyway.
  • Loading branch information
hlissner committed Jul 26, 2019
1 parent 486e21a commit c2ae6f3
Showing 1 changed file with 1 addition and 19 deletions.
20 changes: 1 addition & 19 deletions core/cli/autoloads.el
Original file line number Diff line number Diff line change
Expand Up @@ -336,25 +336,7 @@ them,and remove unnecessary `provide' statements or blank links."
them in Doom's autoloads file."
(doom-initialize-packages)
(prin1 `(setq load-path ',load-path
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))
auto-mode-alist ',auto-mode-alist
Info-directory-list ',Info-directory-list
doom-disabled-packages ',doom-disabled-packages)
(current-buffer)))
Expand Down

0 comments on commit c2ae6f3

Please sign in to comment.