;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; 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 (#$ . 492)) (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 (#$ . 974)]) (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 (#$ . 1681)])#@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\244rq\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 (#$ . 2741)]) (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 (#$ . 3971)])#@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\206WdG\\^{\266\202\232\204_\314!\315!\316!\317!\320!\312\211 \204\202\321\322!\210\323\324!\262rq\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&)\210rq\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 (#$ . 4169)])#@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!*\266eb\266\202\204\3401:\341\f\203\320eb\210`\262\204\335 \203\n\342  \343 Q \206\360\344\203\203Z\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\3478=\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!\210 D\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 (#$ . 5762)])#@13 (fn FILE) (defalias 'jka-compr-file-local-copy #[257 "\303!\304!\211\203x\305!\306!\307!\310!\311\312C\"\313\314!\315\316!\317\206) \262\320\321#\216rq\210\203G\203G\322\323 #\210\324\211\325 \326Q\314\317 &\210\203m\203m\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 "\301\203\302\301!\203\303\301!\210\304\300!\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 (#$ . 8086)])#@85 Documented as original. (fn FILE &optional NOERROR NOMESSAGE NOSUFFIX MUST-SUFFIX) (defalias 'jka-compr-load #[1281 "\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] 12 (#$ . 8998)])#@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 t] 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 (#$ . 10331))#@29 (fn OPERATION &rest ARGS) (defalias 'jka-compr-handler #[385 "\301 \302\303\"\216\304N\211\203\204\305\"\202\306\")\207" [jka-compr-inhibit match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] jka-compr apply jka-compr-run-real-handler] 7 (#$ . 10560)])#@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 (#$ . 10855)])#@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 \211AA\241\210\202 \211A\262\202 A\266\310\nB\211\310A\203_A@\262\211 \235\204O\211A:\203X\3128\313=\203X\211AA\241\210\2021A\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 (#$ . 11059)]) (provide 'jka-compr)