Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
autoconf	[ DIR ]	drwxr-xr-x
dictionaries-common	[ DIR ]	drwxr-xr-x
csh-mode.el	29.15 KB	-rw-r--r--
debian-startup.el	4.6 KB	-rw-r--r--
debian-startup.elc	2.46 KB	-rw-r--r--
dsvn.el	78.62 KB	-rw-r--r--
mq.el	12.17 KB	-rw-r--r--
psvn.el	294.99 KB	-rw-r--r--
subdirs.el	106 B	-rw-r--r--

Code Editor : debian-startup.elc

;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
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])

${this.title}

Code Editor : debian-startup.elc