Lines Matching defs:compression
35 (defgroup compression nil
36 "Data compression utilities."
41 :group 'compression)
52 (defvar jka-compr-compression-info-list)
56 (defvar jka-compr-compression-info-list--internal nil
57 "Stored value of `jka-compr-compression-info-list'.
59 `jka-compr-compression-info-list' when `jka-compr-install' was last called.
79 jka-compr-compression-info-list
82 ;; Functions for accessing the return value of jka-compr-get-compression-info
95 (defun jka-compr-get-compression-info (filename)
96 "Return information about the compression scheme of FILENAME.
97 The determination as to which compression scheme, if any, to use is
98 based on the filename itself and `jka-compr-compression-info-list'."
99 (catch 'compression-info
104 (throw 'compression-info x))))
105 jka-compr-compression-info-list)
118 (setq jka-compr-compression-info-list--internal
119 jka-compr-compression-info-list
125 (dolist (x jka-compr-compression-info-list)
166 If you change the options `jka-compr-compression-info-list',
183 (defcustom jka-compr-compression-info-list
211 ;; dzip is gzip with random access. Its compression program can't
219 "List of vectors that describe available compression techniques.
220 Each element, which describes a compression technique, is a vector of
229 type of compression (nil means no message)
231 compress-program is a program that performs this compression
239 uncompress-program is a program that performs this compression
243 append-flag is non-nil if this compression technique can be
292 "List of compression related suffixes to try when loading files.
305 (define-minor-mode auto-compression-mode
306 "Toggle automatic file compression and uncompression.
307 With prefix argument ARG, turn auto compression on if positive, else off.
308 Return the new status of auto compression (non-nil means on)."
311 (flag auto-compression-mode))
318 (defmacro with-auto-compression-mode (&rest body)
319 "Evalute BODY with automatic file compression and uncompression enabled."
329 (put 'with-auto-compression-mode 'lisp-indent-function 0)
341 (when auto-compression-mode (auto-compression-mode 1))