;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307%\210\310\311\312\313\306\303\314\315&\210\310\316\304\317\306\303\314\315&\210\310\320\304\321\306\303\314\315&\210\310\322\323\324\306\303\325\326\314\327& \210\310\330\304\331\306\303\325\332\314\333& \207" [require cl-lib custom-declare-group load-dir nil "Automatically load all Emacs Lisp files in given directories." :group initialization custom-declare-variable load-dir-debug t "Debugging messages toggle, default to t." :type boolean load-dir-recursive "Whether subdirectories should be loaded too." load-dir-ignore-errors "Whether errors in the loaded files should be ignored." load-dir-ignored '("\\.dir-locals") "This list of regular expressions tells load-dir to ignore some filenames.\nThe match is a substring check against the whole filename." :tag "Ignore these regexps while loading a directory" (repeat :tag "Filename regexp" string) load-dirs "This variable allows you to define which directories should be loaded.\n\nIf nil, no directories are loaded. This is the default behavior.\nIf t, only files in ~/.emacs.d/load.d will be loaded.\nIf a single directory name, only files in that directory will be loaded.\nIf a list of directory names, all files found in all the\ndirectories will be loaded." "What directories to load" (choice (const :tag "Load all from ~/.emacs.d/load.d" t) (const :tag "Don't load anything" nil) directory (repeat :tag "Directories" directory))] 10) #@163 Load all Emacs Lisp files in `load-dirs'. Will not load a file twice (use `load-dir-reload' for that). Recurses into subdirectories if `load-dir-recursive' is t. (defalias 'load-dirs #[nil "\301\302\303=\203\304\305!C\202;\203C\202\"\207" [load-dirs mapc load-dir-one t expand-file-name "~/.emacs.d/load.d"] 4 (#$ . 1860) nil]) #@31 List of already loaded files. (defvar load-dir-loaded nil (#$ . 2206)) #@107 Load all Emacs Lisp files in `load-dirs'. Clears the list of loaded files and just calls `load-dir-load'. (defalias 'load-dirs-reload #[nil "\301\302 \207" [load-dir-loaded nil load-dirs] 1 (#$ . 2284) nil]) #@94 Load all Emacs Lisp files in DIR. Recurses into subdirectories if `load-dir-recursive' is t. (defalias 'load-dir-one #[(dir) "\306\307\"\210\310 \311!\205\312!\205\313\314\"\315\211\203\212 @\312\n!\204\203\316\n\314\" \235\203\203\317\n!\211 \235\203C\306\320\f\"\210\202\202\321\322\"\203S\306\323\n\"\210\202\202\203o\3241c\325\f!0\202k\326\327\")\210\202s\325\f!\210\f \235\203~ \210\202\202\f B) A\211\204*\205\263\313\314#\315\211\205\262 @\312\f!\203\252\330\f!\210 A\211\204\235\315*)\207" [dir suffixes full --dolist-tail-- f load-dir-loaded load-dir-debug "Loading Emacs Lisp code from %s" get-load-suffixes file-exists-p file-directory-p directory-files t nil file-name-extension file-name-sans-extension "Skipping %s, it's already loaded." cl-some #[(regexp) " \303\304\305#)\207" [regexp full inhibit-changing-match-data nil t string-match] 7] "Ignoring %s as per `load-dir-ignored'." (debug error) load message "Error: %S" load-dir-one load-dir-ignored load-dir-ignore-errors #1=#:err load-dir-recursive directory-files-no-dot-files-regexp] 5 (#$ . 2499)]) #@66 Print a debug message like `message' if `load-dir-debug' is set. (defalias 'load-dir-debug #[(&rest args) "\205\302\303 \"\207" [load-dir-debug args apply message] 3 (#$ . 3632)]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook after-init-hook load-dirs provide load-dir] 3)