emacs/lisp/jka-cmpr-hook.el

29 ;; This file contains the code to enable and disable Auto-Compression mode.
30 ;; It is preloaded.  The guts of this mode are in jka-compr.el, which
52 (defvar jka-compr-compression-info-list)
53 (defvar jka-compr-mode-alist-additions)
56 (defvar jka-compr-compression-info-list--internal nil
57   "Stored value of `jka-compr-compression-info-list'.
58 If Auto Compression mode is enabled, this is the value of
59 `jka-compr-compression-info-list' when `jka-compr-install' was last called.
62 (defvar jka-compr-mode-alist-additions--internal nil
63   "Stored value of `jka-compr-mode-alist-additions'.
64 If Auto Compression mode is enabled, this is the value of
65 `jka-compr-mode-alist-additions' when `jka-compr-install' was last called.
70 If Auto Compression mode is enabled, this is the value of
79    jka-compr-compression-info-list
98 based on the filename itself and `jka-compr-compression-info-list'."
105        jka-compr-compression-info-list)
110 This adds entries to `file-name-handler-alist' and `auto-mode-alist'
118   (setq jka-compr-compression-info-list--internal
119 	jka-compr-compression-info-list
120 	jka-compr-mode-alist-additions--internal
121 	jka-compr-mode-alist-additions
125   (dolist (x jka-compr-compression-info-list)
133          ;; Make entries in auto-mode-alist so that modes
136          (push (list (jka-compr-info-regexp x) nil 'jka-compr) auto-mode-alist)
140          ;; file doesn't override tar-mode.
143   (setq auto-mode-alist
144 	(append auto-mode-alist jka-compr-mode-alist-additions))
165   "Update Auto Compression mode for changes in option values.
166 If you change the options `jka-compr-compression-info-list',
167 `jka-compr-mode-alist-additions' or `jka-compr-load-suffixes'
168 outside Custom, while Auto Compression mode is already enabled
183 (defcustom jka-compr-compression-info-list
187   ;; can-append auto-mode-flag strip-extension-flag file-magic-bytes]
232                          (nil means visit file in read-only mode)
234    compress-args         is a list of args to pass to the compress program
241    uncompress-args       is a list of args to pass to the uncompress program
247                          before attempting to set the mode.
252 If you set this outside Custom while Auto Compression mode is
277 (defcustom jka-compr-mode-alist-additions
278   (list (cons "\\.tgz\\'" 'tar-mode) (cons "\\.tbz\\'" 'tar-mode))
279   "List of pairs added to `auto-mode-alist' when installing jka-compr.
280 Uninstalling jka-compr removes all pairs from `auto-mode-alist' that
283 If you set this outside Custom while Auto Compression mode is
293 Enabling Auto Compression mode appends this list to `load-file-rep-suffixes',
294 which see.  Disabling Auto Compression mode removes all suffixes
297 If you set this outside Custom while Auto Compression mode is
305 (define-minor-mode auto-compression-mode
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)
329 (put 'with-auto-compression-mode 'lisp-indent-function 0)
340 ;; Turn on the mode.
341 (when auto-compression-mode (auto-compression-mode 1))