;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	@\"\203T	A\211\204\n\n\204+\312\313!\210\307\306\f:\203O\f@
B\fA\nU\203I\f
BT\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])