;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@233 Takes a path item (a string) and adds it to load path in the correct position for an add-on package, before the emacs system directories, but after the /usr/local/ directories. After modifying load-path, returns the new load-path. (defalias 'debian-pkg-add-load-path-item #[(item) "\306\307 \203# @\203\310\311 @\"\203  T A\211\204\n\n\204+\312\313!\210\307\306\f:\203O\f@ B\fA \nU\203I\f B T\2021 \237\211.\207" [load-path lp-rest last-local-pos pos remainder result 0 nil string-match "^/usr/local" error "No /usr/local/ prefixed paths in load-path" item] 4 (#$ . 409)]) #@82 Takes a list of strings and returns the list with *adjacent* duplicates removed. (defalias 'debian-unique-strings #[(strings) "\302 :\203 @ A@\230\204 @B A\211\202\237)\207" [result strings nil] 3 (#$ . 1017)]) #@304 Load each file of the form XXfilename.el or XXfilename.elc in any of the dirs, where XX must be a number. The files will be run in alphabetical order. If a file appears in more than one of the dirs, then the earlier dir takes precedence, and a .elc file always supercedes a .el file of the same name. (defalias 'debian-run-directories #[(&rest dirs) "\306\307\"\310\311\306\312 \"\"\306\313\306\314\n\"\"\315\316 \317\"!\311 \"\320\321\f\"\210 \322\211\205E@\323 \"A\211\2040\322.\207" [dirs paths files stripped-names base-names load-path mapcar copy-sequence apply append #[(dir) "\301\302\303\304$\207" [dir directory-files nil "^[0-9][0-9].*\\.elc?$" t] 5] #[(file) "\301\302\"\203 \303\304\305#\207\301\306\"\203\303\304\307#\207\207" [file string-match "\\.el$" substring 0 -3 "\\.elc$" -4] 4] #[(file) "\301!\207" [file file-name-nondirectory] 2] debian-unique-strings sort string< mapc #[(file) "\3021\n\303\304\"0\207\305\306\307 !#)\207" [file err (error) load nil message "Error while loading %s: %s" error-message-string] 5] nil remq item --dolist-tail--] 6 (#$ . 1246)]) (defalias 'debian-startup #[(flavor) "\301\302\303\304!\"!\207" [flavor debian-run-directories format "/etc/%s/site-start.d" symbol-name] 5])