| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/site-lisp/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. #@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 (#$ . 85)]) #@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 (#$ . 692)]) #@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 (#$ . 920)]) (defalias 'debian-startup #[(flavor) "\301\302\303\304!\"!\207" [flavor debian-run-directories format "/etc/%s/site-start.d" symbol-name] 5])