;ELC ;;; Compiled ;;; in Emacs version 27.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 (#$ . 767)) (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)) (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" '(#$ . 1715) :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 #[nil "\301!\207" [err-file 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 + default-directory infile count err-file skip len jka-compr-shell prog args null-device jka-compr-acceptable-retval-list message] 17 (#$ . 1881)]) (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\325P\202Q\326%& >\206d\327 ! %,\202\243\330\315 ;\203x\"\202z\316&\331=\204\216\327 !$\210;\205\243r\"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 #[nil "\301!\207" [err-file delete-file] 2] 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) '(#$ . 3857) :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 (#$ . 4139)]) (defalias 'jka-compr-write-region #[(start end file &optional append visit lockname mustbenew) "\306!\n;\203\306\n!\202 \307 !\211\205\310\f!'\2034(\2032)(Z\311 U\2034\312\f\203\210 \203q(;\203P\313(\314(G G^#\202l(\206Ve*)\206^d* G\\^+*+{* \232\204\210\315\f!\316\f!\317\f!\320\f!\321 !\312\211,-./012343\204\235\322\323!\210\324\325!.r.q\210~\210\326 \210)5\203\3204\204\320\327 !\203\320\330 !\2116\206\307 \2117/*\202\324\331 /2\203\3468\203\346\332\33320#\210\334\335()/\336\337\257\"\210,-\3409\34132\3420Q/.\3121&\210)r.q\210\340:\334\335ed 5\205#4\337;<\257\"\210\326 \210*\343/!\2102\203G8\203G\332\34420#\210\n\336=\203Y =\336'\345 \210\202h\n;\203h\n= =\345 \210)\n\336=\204y\n\312=\204y\n;\203~\332\346 \"\210-,.\312\202\231\334\335() 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 substring 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" 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 lockname mustbenew buffer-file-name] 10]) (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\227\315 !\316 !\317 !\320\f!\321\313\322\fC\"\321\211\211./01234561\206Z\f0\n\203c\f7\323\2166\203w8\203w\324\32563#\210\3261\353\3279-\203\206eb\210`.\204\221 \203\270\33056\3313Q40\206\243\332\203\261 \203\261 Z\202\262 &\210\202\324\n?\205\27777\33356\3313Q0\334\3214&\210)`.Z/-\203\343`d|\210.b)0\202:\211:@\335=\203\336:80=\203\n\203\n:\2112\2029\337\335\340:AAB\"\2029\341:@\342N>\2031:A@\343\232\2031\307\344\336:8\"\210\337:@:A\")\210)2\204R\345``/\\\346 !\n -&\210\n\203b\347 \210\f7\334;\350 \2106\203t8\203t\324\35163#\210\n\203\2072\203\207\337\335\340\35228B\"\210\353 !\204\221\324\354!\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 #[nil "\205 \301!\205 \302!\207" [local-copy file-exists-p delete-file] 2] message "%s %s..." (error) no-conversion jka-compr-partial-uncompress " " 0 jka-compr-call-process t 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" replace start size local-file local-copy notfound base-name uncompress-args uncompress-program uncompress-message buffer-file-name jka-compr-verbose coding-system-for-read error-code 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 \330Q \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 #[nil "\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 #[nil "\301!\207" [local-copy delete-file] 2] 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 (#$ . 9172)]) (defalias 'jka-compr-byte-compiler-base-file-name #[(file) "\303!\211\203!\304 !\203!\305 \306\216\307\310\311\312 !\"#*\202\")\207" [file info save-match-data-internal jka-compr-get-compression-info jka-compr-info-strip-extension match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] substring 0 string-match jka-compr-info-regexp] 7]) (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 (#$ . 10554)) (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 #[nil "\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\204WA:\203`\3128\313=\203` \211AA\241\210\2026 A\211\2027 A+\203\204\314\211A\242\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 (#$ . 11306)]) (provide 'jka-compr)