1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp /
Filename : epa-file.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:16 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/epa-file.el
;;; in Emacs version 24.3.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\300\302!\210\303\304\305\306\307DD\310\311\312\313\314&\210\303\315\305\306\316DD\317\311\320\313\314&\207" [require epa epa-hook custom-declare-variable epa-file-cache-passphrase-for-symmetric-encryption funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "If non-nil, cache passphrase for symmetric encryption.\n\nFor security reasons, this option is turned off by default and\nnot recommended to use.  Instead, consider using public-key\nencryption with gpg-agent which does the same job in a safer\nway." :type boolean :group epa-file epa-file-select-keys #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Control whether or not to pop up the key selection dialog.\n\nIf t, always asks user to select recipients.\nIf nil, query user only when `epa-file-encrypt-to' is not set.\nIf neither t nor nil, doesn't ask user.  In this case, symmetric\nencryption is used." (choice (const :tag "Ask always" t) (const :tag "Ask when recipients are not set" nil) (const :tag "Don't ask" silent))] 8)
(defvar epa-file-passphrase-alist nil)
(byte-code "\300\301!\203�\302\303\301\"\210\202�\302\303\304\"\210\300\305!\203!�\302\306\305\"\210\202&�\302\306\304\"\210\300\207" [fboundp encode-coding-string defalias epa-file--encode-coding-string identity decode-coding-string epa-file--decode-coding-string] 3)
(defalias 'epa-file-passphrase-callback-function #[771 "\2036�\302=\2036�\303!\262\304	\"\305\306A!\2065�\204'�C\262	B\307#\262\306!\241\210\211\207\307#\207" [epa-file-cache-passphrase-for-symmetric-encryption epa-file-passphrase-alist SYM file-truename assoc nil copy-sequence epa-passphrase-callback-function] 9 "\n\n(fn CONTEXT KEY-ID FILE)"])
(defalias 'epa-file-handler #[385 "\300 \301\302\303\304\305\306!\307\"\310\311%DC\216\312N\211\203!�\313\"\202%�\314\"\262)\207" [match-data funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" epa-file apply epa-file-run-real-handler] 10 "\n\n(fn OPERATION &rest ARGS)"])
(defalias 'epa-file-run-real-handler #[514 "\302=\205�	B\303\"*\207" [inhibit-file-name-operation inhibit-file-name-handlers epa-file-handler apply] 5 "\n\n(fn OPERATION ARGS)"])
(defalias 'epa-file-decode-and-insert #[1542 "\303\304!\2031�\214``}\210\203�\305!\202�c\210\304ed\306\307	\"O&)\207\310\n\2069�\311\"c\207" [enable-multibyte-characters epa-file-name-regexp coding-system-for-read fboundp decode-coding-inserted-region string-to-multibyte 0 string-match epa-file--decode-coding-string undecided] 14 "\n\n(fn STRING FILE VISIT BEG END REPLACE)"])
(defvar epa-file-error nil)
(defalias 'epa-file--find-file-not-found-function #[0 "\301 \302\303\304\305\306\307!\310\"\311\312%DC\216\313 \210)\210\314\315\316AB\"\207" [epa-file-error current-window-configuration funcall make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 "\n\n(fn)" kill-buffer signal file-error "Opening input file"] 9 "\n\n(fn)"])
(defalias 'epa-file-insert-file-contents #[1281 "C\302 \210\203�\204�\203�\303\304!\210\211\305@!\240\210\306\307\310\311\312\313\314!\315\"\316\317%D\303\307\320\306EDC\217\211\206:�@\321 \322C\322\211C\n\203J�@\323\324B\"\210\325\326\327\330@\"B\"\210\307\310\311\331\313\314!\332\"\333\317%DC\216\203w�eb\210\334\307\310\311\335\313\314#\336\"\337\317%D\303\307\310\340\341\313\314#\342\"\343\344%\334EDC\217\210\345\301!\210\346\347\350\351\"\"	\204\273�\203\311�\211@\206\304�\311O\240\210\212\n?\205\321�\214``}\210\352@@



&\210deZ\262)\203\367�`d|\210)\n\203�\353 \210*@D\266\206\207" [buffer-file-name epa-file-encrypt-to barf-if-buffer-read-only error "Attempt to visit less than an entire file" expand-file-name #1=#:err funcall make-byte-code 0 "\301\302\300@C\"\207" vconcat vector [epa-file-run-real-handler file-local-copy] 3 "\n\n(fn)" #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] epg-make-context nil epg-context-set-passphrase-callback epa-file-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function format "Decrypting %s" "\300\205
�\301\300!\205
�\302\300!\207" [file-exists-p delete-file] 2 #2=#:err "\302\303\301\300\304#\240\207" [epg-decrypt-file nil] 5 257 "\302\305\300@\"\240\203�\302@\306\241\210\307\301!\203\"�\310\304!\210\211\311\312\313\306\314$\210\315\316\317AB\"\207" [epa-file-passphrase-alist epa-file-error assoc nil file-exists-p make-local-variable add-hook find-file-not-found-functions epa-file--find-file-not-found-function t signal file-error "Opening input file"] 6 "\n\n(fn ERROR)" make-local-variable mapcar car epg-context-result-for encrypted-to epa-file-decode-and-insert set-visited-file-modtime] 24 "\n\n(fn FILE &optional VISIT BEG END REPLACE)"])
(put 'insert-file-contents 'epa-file 'epa-file-insert-file-contents)
(defalias 'epa-file-write-region #[1795 "CCC\203�\306\307!\210\310@!\240\210\2060�\311\312!\203/�\313@!\312ed\")\2020�\n\314 \315\316C\316C<\203A�\202H�;\205H�C\317\320\n@B\"\210\321\322\323\324\f@\"B\"\210\325\f\"\210\326\327\330\331\332\333\334\f


\f&\335\"\336\337%D\306\327\330\340\341\333\334\"\342\"\343\344%\326EDC\217\210\345\346@\316@\257\"\210\347\305!\203\260�\n\350=\203\301�@\351 \210\202\315�\n;\203\315�\351 \210\n\n\350=\204\341�\n\316=\204\341�\n;\205\345�\352\353	\")\266\205\207" [coding-system-for-write buffer-file-name buffer-file-coding-system epa-file-encrypt-to epa-armor last-coding-system-used error "Can't append to the file" expand-file-name fboundp select-safe-coding-system file-name-sans-extension epg-make-context binary nil epg-context-set-passphrase-callback epa-file-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function format "Encrypting %s" epg-context-set-armor #1=#:err funcall make-byte-code 0 "\304\306\303\300@;\203�\307\300@\302\"\202&�\300@\204�\300e\240\210\301d\240\210\307\300@\301@{\302\"\310=\2049�\204A�\311\312p\"\204A�\313\303\314\305#\202J�\n\205J�\315\303\305\"#\240\207" vconcat vector [epg-encrypt-string epa-file--encode-coding-string t local-variable-p epa-file-encrypt-to epa-select-keys "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed.  " epg-list-keys epa-file-select-keys] 8 "\n\n(fn)" 257 "\301\303\300@\n\"\240\203�\301@\304\241\210\305\306\307AB\"\207" [epa-file-passphrase-alist assoc nil signal file-error "Opening output file"] 5 "\n\n(fn ERROR)" epa-file-run-real-handler write-region boundp t set-visited-file-modtime message "Wrote %s"] 28 "\n\n(fn START END FILE &optional APPEND VISIT LOCKNAME MUSTBENEW)"])
(put 'write-region 'epa-file 'epa-file-write-region)
#@41 Select recipients for encryption.

(fn)
(defalias 'epa-file-select-keys #[0 "\301\300!\210\302\303\304\305 \306\"\"\211\207" [epa-file-encrypt-to make-local-variable mapcar #[257 "\300\301!@!\207" [epg-sub-key-id epg-key-sub-key-list] 4 "\n\n(fn KEY)"] epa-select-keys epg-make-context "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed.  "] 5 (#$ . 7312) nil])
(defalias 'epa-file-enable #[0 "	>\203\n�\304\305!\207	B\306\307\310\"\210\nB\304\311!\207" [epa-file-handler file-name-handler-alist epa-file-auto-mode-alist-entry auto-mode-alist message "`epa-file' already enabled" add-hook find-file-hook epa-file-find-file-hook "`epa-file' enabled"] 3 "\n\n(fn)" nil])
(defalias 'epa-file-disable #[0 "	>\203�\304	\"\305\306\307\"\210\304\n\"\310\311!\207\310\312!\207" [epa-file-handler file-name-handler-alist epa-file-auto-mode-alist-entry auto-mode-alist delq remove-hook find-file-hook epa-file-find-file-hook message "`epa-file' disabled" "`epa-file' already disabled"] 3 "\n\n(fn)" nil])
(provide 'epa-file)