| 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/jka-compr.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:24 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/jka-compr.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\302\303\304\305\306\307\310\311&\207" [require jka-cmpr-hook custom-declare-variable jka-compr-shell "sh" "Shell to be used for calling compression programs.\nNOTE: Not used in MS-DOS and Windows systems." :type string :group jka-compr] 8)
(defvar jka-compr-use-shell (byte-code "\301>?\207" [system-type (ms-dos windows-nt)] 2))
#@174 Non-nil in a buffer whose visited file was uncompressed on visiting it.
This means compress the data on writing the file, even if the
data appears to be compressed already.
(defvar jka-compr-really-do-compress nil (#$ . 911))
(byte-code "\300\301!\210\302\301\303\304#\210\302\305\306\307#\207" [make-variable-buffer-local jka-compr-really-do-compress put permanent-local t compression-error error-conditions (compression-error file-error error)] 4)
(defvar jka-compr-acceptable-retval-list '(0 2 141))
(defalias 'jka-compr-error #[(prog args infile message &optional errfile) "\306\307!rq\210~\210\310 \210\311\312 \313\314\n\315# $c\210\f\203! \316\f!\210)\317!\210)\320\321\322\311\323
\" E\"\207" [errbuf prog args infile errfile message get-buffer-create " *jka-compr-error*" erase-buffer format "Error while executing \"%s %s < %s\"\n\n" mapconcat identity " " insert-file-contents display-buffer signal compression-error "Opening input file" "error %s"] 7])
#@21 How to invoke `dd'.
(custom-declare-variable 'jka-compr-dd-program "/bin/dd" '(#$ . 1885) :type 'string :group 'jka-compr)
(defvar jka-compr-dd-blocksize 256)
#@187 Call program PROG with ARGS args taking input from INFILE.
Fourth and fifth args, BEG and LEN, specify which part of the output
to keep: LEN chars starting BEG chars from the beginning.
(defalias 'jka-compr-partial-uncompress #[(prog message args infile beg len) "` \203\212 \f\203\212
\245\306 \203\" \307!\203\" \202& \310!\311
_Z \205B \\
\245T\312\216\313 \314\311\315\316\317 \320\321 \322#\f
\203l \316\323T\"\202m \324!& &\">\204\206 \325 #%\210-\202\230 \326 #\314\311 &\210 \203\261 \327\n #`W\203\261 \327\n #`|\210\n\211 \\|*\207" [beg prefix start jka-compr-use-shell jka-compr-dd-program jka-compr-dd-blocksize jka-compr-make-temp-name file-accessible-directory-p file-name-directory nil ((delete-file err-file)) call-process t "-c" format "%s %s 2> %s | \"%s\" bs=%d skip=%d %s 2> %s" mapconcat identity " " "count=%d" "" jka-compr-error jka-compr-call-process + default-directory infile count err-file skip len jka-compr-shell prog args null-device jka-compr-acceptable-retval-list message] 17 (#$ . 2051)])
(defalias 'jka-compr-call-process #[(prog message infile output temp args) "\203 \306!\204 \307!\203 \202 \310 !\n\203h \311 \206# \312\313 \314\216\315 ;?\2056 \316\317\320\321 \322\323 \324#
;\203P \325 P\202Q \326%& >\206d \327 !
%,\202\243 \330\315 ;\203x \"\202z \316 &\331=\204\216 \327 !$\210 ;\205\243 r\"q\210\332ed #\210\333 ))\207" [default-directory infile jka-compr-use-shell coding-system-for-read coding-system-for-write err-file file-remote-p file-accessible-directory-p file-name-directory jka-compr-make-temp-name undecided no-conversion ((delete-file err-file)) call-process nil "-c" format "%s %s 2> %s %s" mapconcat identity " " "> " "" jka-compr-error apply 0 write-region erase-buffer jka-compr-shell output prog args jka-compr-acceptable-retval-list message temp] 13])
#@121 Prefix added to all temp files created by jka-compr.
There should be no more than seven characters after the final `/'.
(custom-declare-variable 'jka-compr-temp-name-template '(expand-file-name "jka-com" temporary-file-directory) '(#$ . 3987) :type 'string :group 'jka-compr)
#@50 This routine will return the name of a new file.
(defalias 'jka-compr-make-temp-name #[(&optional _local-copy) "\301!\207" [jka-compr-temp-name-template make-temp-file] 2 (#$ . 4269)])
(defalias 'jka-compr-write-region #[(start end file &optional append visit) "\306!\n;\203 \306\n!\202 \307 !\211 \205 \310\f! '\2034 (\2032 )(Z\311 U\2034 \312\f\203\215
\203p (;\203O (\313(G
G^O\202k (\206U e *)\206] d*
G\\^ +*+{*
\232\204\215\314\f!\315\f!\316\f!\317\f!\320 !\312\211, - . / 0 1 2 3 43\204\234 \321\322!\210\323\324!.r.q\210~\210\325 \210)5\203\317 4\204\317 \326 !\203\317 \327 !\211 6\206\306 \211 7/*\202\323 \330 /2\203\345 8\203\345 \331\33220#\210\333\334()/\335\336\257\"\210,-\337 9\34032\3410Q/.\3121&\210)r.q\210\337 :;\342>\203 \335<\333\334ed 5\205,4\336\257\"\210\325 \210*\343/!\2102\203L8\203L\331\34420#\210\n\335=\203^ =\335'\345 \210\202m\n;\203m\n= =\345 \210)\n\335=\204~\n\312=\204~\n;\203\203\331\346 \"\210-,.\312\202\232\333\334() 5\n\257\",\207" [file filename visit visit-file info magic expand-file-name jka-compr-get-compression-info jka-compr-info-file-magic-bytes buffer-size nil 0 jka-compr-info-can-append jka-compr-info-compress-program jka-compr-info-compress-message jka-compr-info-compress-args file-name-nondirectory error "No compression program defined" get-buffer-create " *jka-compr-wr-temp*" erase-buffer file-exists-p file-local-copy jka-compr-make-temp-name message "%s %s..." jka-compr-run-real-handler write-region t dont no-conversion jka-compr-call-process " " (ms-dos windows-nt) delete-file "%s %s...done" set-visited-file-modtime "Wrote %s" jka-compr-really-do-compress start end from to last-coding-system-used coding-system-used temp-buffer temp-file base-name compress-args compress-message compress-program can-append append local-copy local-file jka-compr-verbose coding-system-for-read coding-system-for-write system-type buffer-file-type buffer-file-name] 9])
(defalias 'jka-compr-insert-file-contents #[(file &optional visit beg end replace) "\306 \210\204 \203 \n\203 \307\310!\210\311 ! \312\f!\211 \204- \313\314 \n %\257\"\202\330 \315
!\316
!\317
!\320\f!\321\313\322\fC\"\321\211\211 & ' ( ) * + , - .)\206Z \f(\n\203c \f/\323\216.\203w 0\203w \324\325.+#\210\326\327\330\217\210)*\204\223 \331``'\\\332 !\n %&\210\n\203\243 \333 \210\f/\3341\335 \210.\203\265 0\203\265 \324\336.+#\210\n\203\310 *\203\310 \337\340\341\342*8B\"\210\343
!\204\322 \324\344!\210\f'. D*\207" [beg end visit file filename info barf-if-buffer-read-only error "Attempt to visit less than an entire file" expand-file-name jka-compr-get-compression-info jka-compr-run-real-handler insert-file-contents jka-compr-info-uncompress-message jka-compr-info-uncompress-program jka-compr-info-uncompress-args file-name-nondirectory nil file-local-copy ((byte-code "\203 \301!\203 \302!\210\301\207" [local-copy file-exists-p delete-file] 2)) message "%s %s..." error-code (byte-code "\306 \203 eb\210` \204 \f\2039 \307
\310Q \206$ \311 \2032 \f\2032 \f Z\2023 \f&\210\202U ?\205A \312
\310Q\313\314&\210)`\nZ \203b `d|\210\nb\210)\314\207" [coding-system-for-read replace start beg end uncompress-program no-conversion jka-compr-partial-uncompress " " 0 jka-compr-call-process t nil uncompress-message base-name uncompress-args local-file visit buffer-file-name size] 8) ((error (byte-code "@\305=\203$ \3068 =\203$ \n\203 \202D \307\305\310AAB\"\210\202D @\305=\203= \211 A@)\311\232\203= \312\313\3068\"\210\307@A\"\210\305\207" [error-code local-file visit notfound x file-error 3 signal "Opening input file" "Searching for program" error "Uncompression program `%s' not found"] 5))) decode-coding-inserted-region jka-compr-byte-compiler-base-file-name unlock-buffer t set-visited-file-modtime "%s %s...done" signal file-error "Opening input file" 2 jka-compr-info-compress-program "You can't save this buffer because compression program is not defined" replace start size local-file local-copy notfound base-name uncompress-args uncompress-program uncompress-message buffer-file-name jka-compr-verbose jka-compr-really-do-compress] 10])
(defalias 'jka-compr-file-local-copy #[(file) "\306!\307 !\211\203\210 \310\n!\311\n!\312\n!\313 !\314\315 C\"\316\317!\320\321!\322 \2067 \323\216r\fq\210 \203P !\203P \324\325 #\210\326\211 \" #\327 \330 Q \317\322 &\210 \203y !\203y \324\331 #\210\332ed
\322\333%\210,
.\202\215 \314\315 C\"*\207" [file filename info local-file temp-buffer temp-file expand-file-name jka-compr-get-compression-info jka-compr-info-uncompress-message jka-compr-info-uncompress-program jka-compr-info-uncompress-args file-name-nondirectory jka-compr-run-real-handler file-local-copy jka-compr-make-temp-name t get-buffer-create " *jka-compr-flc-temp*" nil ((byte-code "\203 \302!\203 \303!\210\304 !\207" [local-copy temp-buffer file-exists-p delete-file kill-buffer] 2)) message "%s %s..." no-conversion jka-compr-call-process " " "%s %s...done" write-region dont local-copy base-name uncompress-args uncompress-program uncompress-message jka-compr-verbose coding-system-for-write coding-system-for-read] 9])
#@25 Documented as original.
(defalias 'jka-compr-load #[(file &optional noerror nomessage _nosuffix) "\306!\211\206 \307\216\310\211
\204 \311\312\"\210\313 \314\n\313\211$\210)
\204. \311\315\"\210\316\n\"\206= \316\317\n!\" \320!\203L \321!\202? \240\210.\313\207" [file local-copy load-file inhibit-file-name-handlers inhibit-file-name-operation nomessage jka-compr-file-local-copy ((delete-file local-copy)) nil message "Loading %s..." t load "Loading %s...done." assoc file-truename file-name-extension file-name-sans-extension load-force-doc-strings noerror load-history l] 6 (#$ . 9546)])
(defalias 'jka-compr-byte-compiler-base-file-name #[(file) "\303!\211\203 \304 !\203 \305 \306\216\307\310\311 !\"O*\202! )\207" [file info save-match-data-internal jka-compr-get-compression-info jka-compr-info-strip-extension match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 0 string-match jka-compr-info-regexp] 6])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\311#\210\300\312\302\313#\207" [put write-region jka-compr jka-compr-write-region insert-file-contents jka-compr-insert-file-contents file-local-copy jka-compr-file-local-copy load jka-compr-load byte-compiler-base-file-name jka-compr-byte-compiler-base-file-name] 4)
#@181 Non-nil means inhibit automatic uncompression temporarily.
Lisp programs can bind this to t to do that.
It is not recommended to set this variable permanently to anything but nil.
(defvar jka-compr-inhibit nil (#$ . 10900))
(defalias 'jka-compr-handler #[(operation &rest args) "\305 \306\216 \307N\211\203 \204 \310\n\f\"\202 \311 \f\"+\207" [save-match-data-internal operation jka-op jka-compr-inhibit args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) jka-compr apply jka-compr-run-real-handler] 4])
(defalias 'jka-compr-run-real-handler #[(operation args) "\304 =\205 \nB \305 \"*\207" [inhibit-file-name-operation operation inhibit-file-name-handlers args jka-compr-handler apply] 3])
#@179 Uninstall jka-compr.
This removes the entries in `file-name-handler-alist' and `auto-mode-alist'
and `inhibit-local-variables-suffixes' that were added
by `jka-compr-installed'.
(defalias 'jka-compr-uninstall #[nil "\306\307\"\210\310 B\211 A\203) A@A\311=\203\" \211AA\241\210\202 A\211\202\f \nA*\310\fB\211 \310 A\203g A@\211\235\204W A:\203` \3128\313=\203` \211AA\241\210\2026 A\211\2027
A+\203\204 \314\211A@\235@\"\202k \310 \211 \203\245 @\315\"A\211\204\217 *\310\211\310\211\207" [jka-compr-compression-info-list--internal file-name-handler-alist fnha last auto-mode-alist ama mapc #[(x) "\302!\205 \303\304! \"\211\207" [x inhibit-local-variables-suffixes jka-compr-info-strip-extension delete jka-compr-info-regexp] 3] nil jka-compr-handler 2 jka-compr delq delete entry jka-compr-mode-alist-additions--internal jka-compr-added-to-file-coding-system-alist file-coding-system-alist jka-compr-load-suffixes--internal suff --dolist-tail-- load-file-rep-suffixes] 4 (#$ . 11659)])
(provide 'jka-compr)