;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:08:32 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/epa-hook.el
;;; in Emacs version 24.0.50
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(custom-declare-group 'epa-file nil "The EasyPG Assistant hooks for transparent file encryption" :version "23.1" :group 'epa)
(defalias 'epa-file--file-name-regexp-set #[(variable value) "\302	\"\210\303\304!\205
\304 \207" [variable value set-default fboundp epa-file-name-regexp-update] 3])
#@289 Regexp which matches filenames to be encrypted with GnuPG.

If you set this outside Custom while epa-file is already enabled, you
have to call `epa-file-name-regexp-update' after setting it to
properly update file-name-handler-alist.  Setting this through Custom
does that automatically.
(custom-declare-variable 'epa-file-name-regexp '(purecopy "\\.gpg\\(~\\|\\.~[0-9]+~\\)?\\'") '(#$ . 836) :type 'regexp :group 'epa-file :set 'epa-file--file-name-regexp-set)
#@65 If non-nil, disable auto-saving when opening an encrypted file.
(custom-declare-variable 'epa-file-inhibit-auto-save 't '(#$ . 1304) :type 'boolean :group 'epa-file)
#@87 *Recipient(s) used for encrypting files.
May either be a string or a list of strings.
(defvar epa-file-encrypt-to nil (#$ . -1476))
(byte-code "\302\303\304\305#\210\302\303\306\307#\210\310B\311\310!\204\312\310	\310B\"\210\313B\311\313!\204/\312\313	\314\315E\"\210\314\207" [current-load-list epa-file-name-regexp put epa-file-encrypt-to safe-local-variable #[(val) ";\206
<\205
\301\302\215\207" [val safe (byte-code "\301\302\"\210\303\207" [val mapc #[(elt) ";?\205\n\301\302\303\"\207" [elt throw safe nil] 3] t] 3)] 2] permanent-local t epa-file-handler default-boundp set-default epa-file-auto-mode-alist-entry nil epa-file] 5)
(defalias 'epa-file-name-regexp-update #[nil "@	\232?\205	\240\207" [epa-file-handler epa-file-name-regexp] 2 nil nil])
(defalias 'epa-file-find-file-hook #[nil "\205\303	\"\205\n\205\304\305!\207" [buffer-file-name epa-file-name-regexp epa-file-inhibit-auto-save string-match auto-save-mode 0] 3])
#@281 Non-nil if Auto-Encryption mode is enabled.
See the command `auto-encryption-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `auto-encryption-mode'.
(custom-declare-variable 'auto-encryption-mode 't '(#$ . 2445) :set 'custom-set-minor-mode :initialize 'custom-initialize-delay :group 'epa-file :type 'boolean :version "23.1")
#@184 Toggle automatic file encryption and decryption.
With prefix argument ARG, turn auto encryption on if positive, else off.
Return the new status of auto encryption (non-nil means on).
(defalias 'auto-encryption-mode #[(&optional arg) "\306 	\307=\203\n?\202\310	!\311V\312\f\"\313\314\315\"\210\312
\"\n\2038\fB\316\317\315\"\210
B\320\321\n\203B\322\202C\323\"\210\324\325!\203h\326\302!\210\306 \203[\306 \232\203h\327\330\n\203e\331\202f\332\"\210)\333 \210\n\207" [#1=#:last-message arg auto-encryption-mode epa-file-handler file-name-handler-alist epa-file-auto-mode-alist-entry current-message toggle prefix-numeric-value 0 delq remove-hook find-file-hooks epa-file-find-file-hook add-hook find-file-hook run-hooks auto-encryption-mode-hook auto-encryption-mode-on-hook auto-encryption-mode-off-hook called-interactively-p any customize-mark-as-set message "Auto-Encryption mode %sabled" "en" "dis" force-mode-line-update auto-mode-alist] 3 (#$ . 2909) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\210\305\306\307\310#\210\305\306\311\312#\210\313\314!\207" [auto-encryption-mode-map add-minor-mode auto-encryption-mode nil boundp put epa-file-handler safe-magic t operations (write-region insert-file-contents) provide epa-hook] 6)
