ikan Uploader :
Directory : /usr/share/emacs/25.2/site-lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/site-lisp/debian-startup.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.2
;;; 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 (#$ . 411)])
#@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 (#$ . 1019)])
#@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\f \303\304O\207\301\305\"\203 \303\306O\207\207" [file string-match "\\.el$" 0 -3 "\\.elc$" -4] 3] #[(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 (#$ . 1248)])
(defalias 'debian-startup #[(flavor) "\303\304!\204\n \305!\210\306\307\310!\311Q\312 \n\"*\207" [flavor flavor-dir common-dir boundp debian-emacs-flavor (lambda (#1=#:def-tmp-var) (defconst debian-emacs-flavor #1# "A symbol representing the particular debian flavor of emacs that's\nrunning. Something like 'emacs20, 'xemacs20, etc.")) "/etc/emacs/site-start.d" "/etc/" symbol-name "/site-start.d" debian-run-directories] 4])
Kontol Shell Bypass