13 lines
471 B
EmacsLisp
13 lines
471 B
EmacsLisp
;; -*- mode: Emacs-Lisp; eval: (git-auto-commit-mode 1) -*-
|
|
(require 'bytecomp)
|
|
|
|
(defvar startup-files
|
|
(directory-files "~/.emacs.d/startup/" t "^[^.].*\\.el$")
|
|
"A list of the files that should be loaded during startup.")
|
|
|
|
(while startup-files
|
|
(let ((filename (car startup-files))
|
|
(byte-compile-warnings nil))
|
|
(if (not (eq (byte-recompile-file filename nil 0) nil))
|
|
(load (substring filename 0 -3))))
|
|
(setq startup-files (cdr startup-files)))
|