ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/cus-dep.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require widget cus-face] 2)
#@45 Output file for `custom-make-dependencies'.
(defvar generated-custom-dependencies-file "cus-load.el" (#$ . 479))
#@72 Regexp matching file names not to scan for `custom-make-dependencies'.
(defvar custom-dependencies-no-scan-regexp "\\(^\\.#\\|\\(loaddefs\\|ldefs-boot\\|cus-load\\|finder-inf\\|esh-groups\\|subdirs\\)\\.el$\\)" (#$ . 598))
(byte-code "\301\302!\210\203
\303\304\305\"\210\301\207" [noninteractive require autoload mapc #[(e) "\302\303\304\"!\305 !\206 \306 \")\207" [e sym intern format "%s-mh" fboundp defalias] 4] (defcustom defface defgroup)] 3)
#@132 Batch function to extract custom dependencies from .el files.
Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS
(defalias 'custom-make-dependencies #[nil "\306\307\306\310\311!r q\210\312\216\f\211A\242\211\203,\313\314\"\210\315\306\316#\317\320!!\321\322
\323\"\324Q @ A\211 B\306 C\211 D\203(D@C\325EC\"\204 \325@\326\327C#\"\204 \330C!\203 \331 \210\332 \210\333C!\210\334 \210eb\210\325\335C\"\210F\206\205 \336\337\340C\"!C G H\212\341\342\343H!\344Q\306\323#)\203\241 \345H!H\3461\341\347\306\323#\205\350 \210\337\340!\351p! I J\3521\324 \323 K\353IA@\354H#\210\355I!)0\202\210\3561\357I>A@\211 L\205 L@\360=\205 \361LA@IA@\345\326\362J\363\232\203\364\202J\"!#)0\202\210\306\210*\202\245 0\202 \210\202 \210*DA\211D\204@ -\202 .\313\365M\"\210\366M!q\210\323N\331 \210\367M\370\323#c\210\371\372!\210\306 O\373\374!\210\375O\376\"\306 P\211 D\203D@P\377P@\201S PA\201T \261\210DA\211D\204a+\201U \336M!\201V \261\210\306\211 Q R\373\201W !\210\375Q\201X \"\306 P\211 D\203\375D@P\201Y P@\201Z PA@\201T \261\210\201Y P@\201[ \201\\ P8\201T \261\210\201] P8\203\364\201Y P@\201^ \201] P8\201T \261\210DA\211D\204\251*\201_ R\203\f\201` \202\201a \261\210\201b \375R\201c \"p\"\210\201d c\210*\201e \210\313\201f M\"\207" [subdir enable-local-variables enable-local-eval #1=#:temp-buffer command-line-args-left preloaded-file-list nil :safe generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] message "Scanning %s for custom" directory-files "\\`[^=.].*\\.el\\'" file-name-as-directory expand-file-name "\\`\\(\\./+\\)?" regexp-opt t "\\.el\\'" string-match format "%s/%s" file-exists-p erase-buffer kill-all-local-variables insert-file-contents hack-local-variables "\\`\\(.*\\)\\.el\\'" file-name-nondirectory match-string 1 re-search-forward "(\\(cc-\\)?provide[ \n]+\\('\\|(quote[ \n]\\)[ \n]*" regexp-quote "[ \n)]" intern (error) "^(def\\(custom\\|face\\|group\\)" beginning-of-line read (error) put custom-where eval (error) :group quote custom-add-to-group "custom-%s" "custom" "variable" "Generating %s..." find-file-noselect autoload-rubric "custom dependencies" search-backward "\f" mapatoms #[(symbol) "\306N\307\211\211\205_ \310\311 \"\307 \211 \2033
@\211\312N\211\203, \n \235\204, \n B
A\211\204 * \205_ \313!\314\315\316!! \317\216 \320\321 \322\"!\210)rq\210\323 +BB\211+\207" [symbol found where members member --dolist-tail-- custom-group nil mapcar car custom-where symbol-name get-buffer-create generate-new-buffer-name #3=" *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] prin1 sort string< buffer-string standard-output alist] 6] sort #[(e1 e2) "@ @\231\207" [e1 e2] 2] "(put '" preloaded default-directory files file --dolist-tail-- custom-dependencies-no-scan-regexp generated-autoload-load-name load-file-name name expr type custom-dont-initialize group generated-custom-dependencies-file buffer-undo-list alist e groups version-alist " 'custom-loads '" ")\n" "\n;; The remainder of this file is for handling :version.\n;; We provide a minimum of information so that `customize-changed-options'\n;; can do its job.\n\n;; For groups we set `custom-version', `group-documentation' and\n;; `custom-tag' (which are shown in the customize buffer), so we\n;; don't have to load the file containing the group.\n\n;; This macro is used so we don't modify the information about\n;; variables and groups if it's already set. (We don't know when\n;; " " is going to be loaded and at that time some of the\n;; files might be loaded and some others might not).\n(defmacro custom-put-if-not (symbol propname value)\n `(unless (get ,symbol ,propname)\n (put ,symbol ,propname ,value)))\n\n" #[(symbol) "\306N\307\211\205\237 \310N\211\205\237 \311!\204 \312!\203I \313\n \"\203? \313\n \"A\235?\205\237 \313\n \"\211 \fAB\241)\202\237 \n D B\211\202\237 \314!\315\316\317!! \320\216
\321\n!\210)r
q\210\322 +\315\316\317!! \323\216
\321\324N!\210)r
q\210\322 +\325N\205\230 \315\316\317!! \326\216
\321\325N!\210)r
q\210\322 +FB\211*\207" [symbol where version version-alist #2=#:v standard-output custom-version nil custom-where custom-variable-p custom-facep assoc symbol-name get-buffer-create generate-new-buffer-name #3# #[nil "\301!\207" [standard-output kill-buffer] 2] prin1 buffer-string #[nil "\301!\207" [standard-output kill-buffer] 2] group-documentation custom-tag #[nil "\301!\207" [standard-output kill-buffer] 2] groups] 7] #[(e1 e2) "@ @\231\207" [e1 e2] 2] "(custom-put-if-not '" " 'custom-version '" " 'group-documentation " 2 3 " 'custom-tag " "\n(defvar custom-versions-load-alist " "'" "" prin1 #[(e1 e2) "\302@ @\"\207" [e1 e2 version<] 3] "\n \"For internal use by custom.\nThis is an alist whose members have as car a version string, and as\nelements the files that have variables or faces that contain that\nversion. These files should be loaded before showing the customization\nbuffer that `customize-changed-options' generates.\")\n\n" save-buffer "Generating %s...done"] 9 (#$ . 1060)])
(provide 'cus-dep)
Kontol Shell Bypass