| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/cus-dep.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:13 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cus-dep.el
;;; in Emacs version 24.3.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" (#$ . 619))
#@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$\\)" (#$ . 738))
(autoload 'autoload-rubric "autoload")
#@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\211\307\310!r\nq\210\311\216 \211A@\211\203\242 \312\313\"\210\314\306\315#\316!\317\320\321\322\f\"\323\"\324Q 6\211 7\306 8\211 9\203\236 9@8\325:8\"\204\225 \325
8\"\204\225 \3268!\203\225 \327 \210\3308!\210eb\210\325\3318\"\210\332\333\3348\"!8 ; <\212\335\336\337<!\340Q\306\323#)\203\217 \341<!<\306\342\343\217\210*9A\2119\204> -\202 -\312\344=\"\210\345=!q\210\323>\327 \210\346=\347\323#c\210\350\351!\210\352\353!\210\354\332=!\355\261\210\306 ?\352\356!\210\357?\203\337 \360\202\340 \361\261\210\362?p\"\210\363c\210)\364 \210\312\365=\"\207" [subdir enable-local-eval #1=#:temp-buffer command-line-args-left preloaded-file-list preloaded nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) message "Directory %s" directory-files "\\`[^=].*\\.el\\'" expand-file-name "\\`" regexp-opt mapcar file-name-base t "\\.el\\'" string-match file-exists-p erase-buffer insert-file-contents "\\`\\(.*\\)\\.el\\'" file-name-nondirectory match-string 1 re-search-forward "(provide[ \n]+\\('\\|(quote[ \n]\\)[ \n]*" regexp-quote "[ \n)]" intern (byte-code "\301\302\303\304#\203 \305 \210\306p!\303\307\310\217\210)\202 \303\207" [expr re-search-forward "^(def\\(custom\\|face\\|group\\)" nil t beginning-of-line read (byte-code "\303\304 !\210\305 A@\306\n#\210)\303\207" [custom-dont-initialize expr name t eval put custom-where] 4) ((error))] 4) ((error)) "Generating %s..." find-file-noselect autoload-rubric "custom dependencies" search-backward "\f" mapatoms #[(symbol) "\306N\307\211\211\205K \310\311\312 \"\313\"\307 \211 \2036
@\211\314N\211\203/ \n \235\204/ \n B
A\211\204 * \205K \315\316!\317\261\210\320 \237p\"\210\321c+\207" [symbol found where members member --dolist-tail-- custom-group nil sort mapcar car string< custom-where "(put '" symbol-name " 'custom-loads '" prin1 ")\n"] 5] ";; These are for handling :version. We need to have a minimum of\n;; information so `customize-changed-options' could 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;; `custom-versions-load-alist' is an alist that has as car a version\n;; number and as elts the files that have variables or faces that\n;; contain that version. These files should be loaded before showing\n;; the customization buffer that `customize-changed-options'\n;; generates.\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) "\305N\306\211\205\206 \307N\211\205\206 \310!\204 \311!\203I \312\n \"\203? \312\n \"A\235?\205\206 \312\n \"\211 \fAB\241)\202\206 \n D B\211\202\206 \313\314!\315\261\210\316\np\"\210\317c\210\313\314!\261\210\320c\210\316\321Np\"\210\317c\210\322N\205\206 \313\314!\261\210\323c\210\316\322Np\"\210\317c*\207" [symbol where version version-alist #2=#:v custom-version nil custom-where custom-variable-p custom-facep assoc "(custom-put-if-not '" symbol-name " 'custom-version " prin1 ")\n" " 'group-documentation " group-documentation custom-tag " 'custom-tag "] 5] "\n(defvar custom-versions-load-alist " "'" "" prin1 "\n \"For internal use by custom.\")\n" save-buffer "Generating %s...done" default-directory files file --dolist-tail-- custom-dependencies-no-scan-regexp load-file-name name generated-custom-dependencies-file buffer-undo-list version-alist] 8 (#$ . 1007)])