D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
blackhat.pw
:
/
kunden
/
kunden
/
usr
/
share
/
emacs
/
site-lisp
/
Filename :
debian-startup.elc
back
Copy
;ELC ;;; Compiled ;;; in Emacs version 30.1 ;;; with all optimizations. #@244 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. (fn ITEM) (defalias 'debian-pkg-add-load-path-item #[257 "\301\302\211\203 \211@\203 \303\304@\"\203 \262T\262A\202 \204' \305\306!\210\302\301\211:\203I \211@B\262AU\203B B\262T\262\202* \237\211\207" [load-path 0 nil string-match "^/usr/local" error "No /usr/local/ prefixed paths in load-path"] 10 (#$ . 84)])#@96 Takes a list of strings and returns the list with *adjacent* duplicates removed. (fn STRINGS) (defalias 'debian-unique-strings #[257 "\300:\203 @A@\230\204 @B\262A\262\202 \237\207" [nil] 4 (#$ . 659)])#@321 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. (fn &rest DIRS) #@12 (fn DIR) #@13 (fn FILE) (defalias 'debian-run-directories #[128 "\301\302\"\303\304\301\305\"\"\301\306\301\307\"\"\310\311\312\"!\304\"\313\314\"\210\211\2053 \211@\315\"\210A\202# \207" [load-path mapcar copy-sequence apply append #[257 "\300\301\302\303$\207" [directory-files nil "^[0-9][0-9].*\\.elc?$" t] 6 (#$ . 1205)] #[257 "\300\301\"\203\f \211\302\303O\207\300\304\"\203 \211\302\305O\207\207" [string-match "\\.el$" 0 -3 "\\.elc$" -4] 4 (#$ . 1221)] #[257 "\300!\207" [file-name-nondirectory] 3 (#$ . 1221)] debian-unique-strings sort string< mapc #[257 "\3001\n \301\302\"0\207\303\304\305!#\207" [(error) load nil message "Error while loading %s: %s" error-message-string] 7 (#$ . 1221)] remq] 10 (#$ . 880)])#@15 (fn FLAVOR) (defalias 'debian-startup #[257 "\300\301\302\303!\"!\207" [debian-run-directories format "/etc/%s/site-start.d" symbol-name] 6 (#$ . 1958)])