HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/epa-file.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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] "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 gpg-agent which\ndoes the same job in a safer way.  See Info node `(epa) Caching\nPassphrases' for more information.\n\nNote that this option has no effect if you use GnuPG 2.0." :type boolean :group epa-file epa-file-select-keys #[0 "\300\207" [nil] 1] "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)
#@28 

(fn CONTEXT KEY-ID FILE)
(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 (#$ . 1802)])
#@71 Non-nil means don't try to decrypt .gpg files when operating on them.
(defvar epa-inhibit nil (#$ . 2184))
#@29 

(fn OPERATION &rest ARGS)
(defalias 'epa-file-handler #[385 "\301 \302\303\304\305\306!\307\"\310$\216\311N\211\203 \204 \312\"\202$\313\"\262)\207" [epa-inhibit match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 epa-file apply epa-file-run-real-handler] 9 (#$ . 2297)])
#@23 

(fn OPERATION 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 (#$ . 2629)])
#@42 

(fn STRING FILE VISIT BEG END REPLACE)
(defalias 'epa-file-decode-and-insert #[1542 "\303\304!\2031\214``}\210\203\305!\202c\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 (#$ . 2830)])
(defvar epa-file-error nil)
(defalias 'epa-file--find-file-not-found-function #[0 "\301 \302\303\304\305\306!\307\"\310$\216\311 \210)\210\312\313\314AB\"\207" [epa-file-error current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 kill-buffer signal file-missing "Opening input file"] 8])
#@45 

(fn FILE &optional VISIT BEG END REPLACE)
(defalias 'epa-file-insert-file-contents #[1281 "\306 \210\203\204\203\307\310!\210\311!\262\3121&\313\314C\"0\202(\210\315\211\206-\316 p\315\211\211\n\203;\317\320B\"\210\321\322\323\324\"B\"\210\325!	>\204^\326\327\330D\"\210\211\331\nI\266\332\333\334\335\336!\337\"\340$\216\203zeb\210\3411\213\342\315#\211\2620\202\337\343
\"\211\262\203\232\315\241\210\344@\345N>\203\262\211A@\346\232\203\262\307\347\3508\"\210\351!\211\203\314\352\304!\210\353\354\355\315\356$\210\357!\210\326\203\325\344\202\326\360\361AB\"\262\262\210q\210\352\305!\210\362\363\364\365\"\"	\204\372\203\n\206\333\nO\262\212\n?\205\214``}\210\366




&\210deZ\262)\2032`d|\210)\n\203;\367 \210*D\207" [buffer-file-name cl-struct-epg-context-tags epa-pinentry-mode epa-file-passphrase-alist epa-file-error epa-file-encrypt-to barf-if-buffer-read-only error "Attempt to visit less than an entire file" expand-file-name (error) epa-file-run-real-handler file-local-copy nil epg-make-context epg-context-set-passphrase-callback epa-file-passphrase-callback-function epg-context-set-progress-callback epa-progress-callback-function format "Decrypting %s" type-of signal wrong-type-argument epg-context 19 make-byte-code 0 "\300\205
\301\300!\205
\302\300!\207" vconcat vector [file-exists-p delete-file] 2 (error) epg-decrypt-file assoc file-error error-conditions "Searching for program" "Decryption program `%s' not found" 3 file-exists-p make-local-variable add-hook find-file-not-found-functions epa-file--find-file-not-found-function t epa-display-error file-missing "Opening input file" mapcar car epg-context-result-for encrypted-to epa-file-decode-and-insert set-visited-file-modtime] 19 (#$ . 3587)])
(put 'insert-file-contents 'epa-file 'epa-file-insert-file-contents)
#@65 

(fn START END FILE &optional APPEND VISIT LOCKNAME MUSTBENEW)
(defalias 'epa-file-write-region #[1795 "\203\306\307!\210\310!\262\206$\311\312!\203#\313!\312ed\")\202$\n\314 \315\316\211<\2033\202:;\205:C\316\317\320
B\"\210\321\322\323\324\"B\"\210\325!\f>\204^\326\327\330D\"\210\211\331
I\266\325!\f>\204u\326\327\330D\"\210\211\332:I\266\3331\375\334;\203\222\335	\"\202\316\204\235e\262d\262p\262\336\337!r\211q\210\340\341\342\343\344!\345\"\346$\216\347#\210\350rq\210;)!\210\335\351 \n\"*\262<\352=\204\341<\204\353\353\303p\"\204\353\354\355#\202\365\205\365\356\"#\211\2620\202\357!\210\360\f=\"\211\262\203\316\241\210\326\361\362AB\"\262\210\363\364\316\257\"\210\365\366!\20376\352=\203G\n\367 \210\202S;\203S\367 \210\352=\204g\316=\204g;\205k\370\371	\")\207" [coding-system-for-write buffer-file-name buffer-file-coding-system epa-file-encrypt-to cl-struct-epg-context-tags epa-armor 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" type-of signal wrong-type-argument epg-context 4 19 (error) epg-encrypt-string epa-file--encode-coding-string generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-buffer-substring format-encode-buffer buffer-string t local-variable-p epa-select-keys "Select recipients for encryption.\nIf no one is selected, symmetric encryption will be performed.  " epg-list-keys epa-display-error assoc file-error "Opening output file" epa-file-run-real-handler write-region boundp last-coding-system-used set-visited-file-modtime message "Wrote %s" epa-pinentry-mode buffer-file-format epa-file-select-keys epa-file-passphrase-alist] 22 (#$ . 5497)])
(put 'write-region 'epa-file 'epa-file-write-region)
#@35 Select recipients for encryption.
(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 "\302\211!>\204\303\304\305D\"\210\306H@!	>\2044\303\304\307\302!>\204-\303\304\305D\"\210\306H@D\"\210\302!>\204C\303\304\305D\"\210\211\306H@\310H\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags type-of signal wrong-type-argument epg-key 2 epg-sub-key 6] 8 "\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 (#$ . 7598) 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 nil 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 nil nil])
(provide 'epa-file)