;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [require jka-cmpr-hook custom-declare-variable jka-compr-shell funcall function #[0 "\300\207" ["sh"] 1 ""] "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 (#$ . 493))
(byte-code "\300\301!\210\302\301\303\304#\210\305\306\307\310#\207" [make-variable-buffer-local jka-compr-really-do-compress put permanent-local t define-error compression-error nil file-error] 4)
(defvar jka-compr-acceptable-retval-list '(0 2 141))
#@51 

(fn PROG ARGS INFILE MESSAGE &optional ERRFILE)
(defalias 'jka-compr-error #[1284 "\300\301!r\211q\210~\210\302 \210\303\304\305\306	\307#$c\210
\203#\310!\210)\311
!\266\312\313\314\303\315\"E\"\207" [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"] 13 (#$ . 976)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable jka-compr-dd-program funcall function #[0 "\300\207" ["/bin/dd"] 1 ""] "How to invoke `dd'." :type string :group jka-compr] 8)
(defvar jka-compr-dd-blocksize 256)
#@226 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.

(fn PROG MESSAGE ARGS INFILE BEG LEN)
(defalias 'jka-compr-partial-uncompress #[1542 "`\203\203	\203\203\n\245\306 \203\307!\203\202!\310!\311
\n_Z\262\2058\\\n\245T\262
\312\313\"\216\314\f\n\315\311\316\317\320\321\322\323#\f	\n\203d\317\324T\"\202e\325
&	&>\204}\326\f%\210*\266\202\221\327\315\311&\210\203\247

\\\\`W\203\247

\\\\`|\210
\211\\|\207" [jka-compr-use-shell jka-compr-dd-program jka-compr-dd-blocksize default-directory jka-compr-shell null-device jka-compr-make-temp-name file-accessible-directory-p file-name-directory nil make-closure #[0 "\301\300!\207" [V0 delete-file] 2] 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 jka-compr-acceptable-retval-list] 29 (#$ . 1684)])
#@45 

(fn PROG MESSAGE INFILE OUTPUT TEMP ARGS)
(defalias 'jka-compr-call-process #[1542 "\203\306!\204\307!\203\202\310!	\203l\311 \n\206#\312\313\314\315\"\216\316\f;?\2058\317\320\321\322\323\324\f\325#\n;\203S\326P\202T\327%&
>\206f\330	%+\262
\202\244\331\316;\203|\202~\317&\332=\204\222\330$\210;\205\244r
q\210\333ed#\210\334 ))\207" [default-directory jka-compr-use-shell coding-system-for-read coding-system-for-write jka-compr-shell jka-compr-acceptable-retval-list file-remote-p file-accessible-directory-p file-name-directory jka-compr-make-temp-name undecided no-conversion make-closure #[0 "\301\300!\207" [V0 delete-file] 2] call-process nil "-c" format "%s %s 2> %s %s" mapconcat identity " " "> " "" jka-compr-error apply 0 write-region erase-buffer] 20 (#$ . 2745)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable jka-compr-temp-name-template funcall function #[0 "\301\302\"\207" [temporary-file-directory expand-file-name "jka-com"] 3 ""] "Prefix added to all temp files created by jka-compr.\nThere should be no more than seven characters after the final `/'." :type string :group jka-compr] 8)
#@77 This routine will return the name of a new file.

(fn &optional LOCAL-COPY)
(defalias 'jka-compr-make-temp-name #[256 "\301!\207" [jka-compr-temp-name-template make-temp-file] 3 (#$ . 3976)])
#@65 

(fn START END FILE &optional APPEND VISIT LOCKNAME MUSTBENEW)
(defalias 'jka-compr-write-region #[1795 "\306!;\203\306!\202\211\307
!\211\205\310
!\2030\n\203-	Z\311 U\2030\312\262

\203_
\211\203f\n;\203K\n\313\fGG^O\202a\n\206Qe\n\206Wd
G\\^

{\266\202
\232\204_
\314!\315!\316!\317!\320!\312\211	\204\202\321\322!\210\323\324!\262r
q\210~\210\325 \210)\203\262\204\262\326\f!\203\262\327\f!\211\206\254\f\262\210\202\266\330 \262\203\306\n\203\306\331\332#\210\333\334\335\336\257\"\210	\262
\337\340\341Q\312\n&\210)r
q\210\337\333\334ed\205\376\f\336\257\"\210\325 \210*\342!\210\203
\n\203
\331\343#\210\335=\2031
\335\344 \210\202A
;\203A
\344 \210)\335=\204S
\203S
;\203Y
\331\345\f\"\210\211\266\312\207\333\334\f\f\f\f\f\f\257\"\207" [jka-compr-really-do-compress last-coding-system-used jka-compr-verbose coding-system-for-read coding-system-for-write buffer-file-name 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 " " delete-file "%s %s...done" set-visited-file-modtime "Wrote %s"] 28 (#$ . 4175)])
#@45 

(fn FILE &optional VISIT BEG END REPLACE)
(defalias 'jka-compr-insert-file-contents #[1281 "\304 \210\204
\203\203\305\306!\210\307!\310
!\211\204-\311\312\257\"\207\313
!\314!\315!\316!\317!\320\311\321	C\"\320\211\211\206M\262\203W\322\323\"\216	\203m	\203m\324\325#\210\326	!\204\302\203\302\327!\203\302p\330\331\332\"r\211q\210\322\333\"\216\334\320!\210\335!\210	ed\"\210\203\247d|\210\203\261e|\210\336 \262\337!\210*\210eb\266\202\204
\3401:
\341\f\203\320eb\210`\262
\204\335
\203\n
\342	\343	Q	\206\360\344\203
\203
Z\202
&\210\202$
?\205
\345	\343	Q\332\320\f&\210)`
Z\262\f\2032
`d|\210\211b)0\210\202\204
\211@\346=\203d
\347
8=\203d
\203W
\211\211\262\266\202\204
\350\346\351AAB\"\266\202\204
\352
@\353N>\203|
\211A@\354\232\203|
\305\355\3478\"\210\350
@A\"\266)\204\235
\356``\\\357!&\210\203\255
\360 \210\332\361 \210	\203\276
	\203\276
\324\362#\210\203\321
\203\321
\350\346\351\3638B\"\210\364!\204\334
\324\365!\210D\207" [buffer-file-name jka-compr-verbose coding-system-for-read jka-compr-really-do-compress 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-function jka-compr-info-uncompress-args file-name-nondirectory nil file-local-copy make-closure #[0 "\300\205
\301\300!\205
\302\300!\207" [V0 file-exists-p delete-file] 2] message "%s %s..." executable-find fboundp generate-new-buffer " *temp*" t #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte insert-file-contents-literally buffer-size insert-into-buffer (error) no-conversion jka-compr-partial-uncompress " " 0 jka-compr-call-process file-missing 3 signal "Opening input file" file-error error-conditions "Searching for program" "Uncompression program `%s' not found" decode-coding-inserted-region jka-compr-byte-compiler-base-file-name unlock-buffer set-visited-file-modtime "%s %s...done" 2 jka-compr-info-compress-program "You can't save this buffer because compression program is not defined"] 25 (#$ . 5769)])
#@13 

(fn FILE)
(defalias 'jka-compr-file-local-copy #[257 "\303
!\304
!\211\203w\305
!\306!\307!\310!\311\312C\"\313\314!\315\316!\317\206)	\262
\320\321#\216r
q\210\203F\203F\322\323	#\210\324\211\325	\326Q\314\317&\210\203l\203l\322\327	#\210\330ed\317\331%\210,\207\311\312C\"\207" [jka-compr-verbose coding-system-for-write coding-system-for-read 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 make-closure #[0 "\300\203\302\300!\203\303\300!\210\304\301!\207" [V0 V1 file-exists-p delete-file kill-buffer] 2] message "%s %s..." no-conversion jka-compr-call-process " " "%s %s...done" write-region dont] 18 (#$ . 8097)])
#@73 Documented as original.

(fn FILE &optional NOERROR NOMESSAGE NOSUFFIX)
(defalias 'jka-compr-load #[1025 "\304!\211\206\305\306\"\216\307\211\204\310\311\"\210\312\313
\312\211$\210)\2040\310\314\"\210\315
\"\206=\315\316!\"\317!\203M\320!\262\202=\211\240\266+\312\207" [inhibit-file-name-handlers inhibit-file-name-operation load-force-doc-strings load-history jka-compr-file-local-copy make-closure #[0 "\301\300!\207" [V0 delete-file] 2] nil message "Loading %s..." t load "Loading %s...done." assoc file-truename file-name-extension file-name-sans-extension] 11 (#$ . 9009)])
#@13 

(fn FILE)
(defalias 'jka-compr-byte-compiler-base-file-name #[257 "\300
!\211\203 \301
!\203 \302 \303\304\"\216\305\306\307!\"O)\207
\207" [jka-compr-get-compression-info jka-compr-info-strip-extension match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] 0 string-match jka-compr-info-regexp] 8 (#$ . 9629)])
(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 (#$ . 10340))
#@29 

(fn OPERATION &rest ARGS)
(defalias 'jka-compr-handler #[385 "\301 \302\303\"\216\304N\211\203\204\305
\"\202\306\"\262
)\207" [jka-compr-inhibit match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] jka-compr apply jka-compr-run-real-handler] 7 (#$ . 10570)])
#@23 

(fn OPERATION ARGS)
(defalias 'jka-compr-run-real-handler #[514 "\302=\205	B\303\"*\207" [inhibit-file-name-operation inhibit-file-name-handlers jka-compr-handler apply] 5 (#$ . 10879)])
#@177 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-install'.
(defalias 'jka-compr-uninstall #[0 "\306\307\"\210\310	B\211\211A\203'\211A@A\311=\203 \211
AA\241\210\202	\211A\262
\202	
A\266\310\nB\211\310
A\203_
A@\262
\211\235\204O\211A:\203X\312
8\313=\203X
\211AA\241\210\2021
A\262\2021A\266\f\203w\314\f\211A\242
\235@
\"\202d\211\203\215\211@\315
\"
A\266\202\202y\210\310\211\310\211\207" [jka-compr-compression-info-list--internal file-name-handler-alist auto-mode-alist jka-compr-mode-alist-additions--internal jka-compr-added-to-file-coding-system-alist file-coding-system-alist mapc #[257 "\301
!\205\302\303!\"\211\207" [inhibit-local-variables-suffixes jka-compr-info-strip-extension delete jka-compr-info-regexp] 4 "\n\n(fn X)"] nil jka-compr-handler 2 jka-compr delq delete jka-compr-load-suffixes--internal load-file-rep-suffixes] 6 (#$ . 11084)])
(provide 'jka-compr)