Lines Matching +defs:message +defs:mode
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
53 (defvar jka-compr-mode-alist-additions)
58 If Auto Compression mode is enabled, this is the value of
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
84 (defun jka-compr-info-compress-message (info) (aref info 1))
87 (defun jka-compr-info-uncompress-message (info) (aref info 4))
110 This adds entries to `file-name-handler-alist' and `auto-mode-alist'
120 jka-compr-mode-alist-additions--internal
121 jka-compr-mode-alist-additions
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.
167 `jka-compr-mode-alist-additions' or `jka-compr-load-suffixes'
168 outside Custom, while Auto Compression mode is already enabled
185 ;; compr-message compr-prog compr-args
186 ;; uncomp-message uncomp-prog uncomp-args
187 ;; can-append auto-mode-flag strip-extension-flag file-magic-bytes]
228 compress-msg is the message to issue to the user when doing this
229 type of compression (nil means no message)
232 (nil means visit file in read-only mode)
236 uncompress-msg is the message to issue to the user when doing this
237 type of uncompression (nil means no message)
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
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))