%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/
Current File : //usr/local/share/emacs/27.2/lisp/epa-file.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 "\214``}\210c\210\301ed\302\303\304\f\"#&\210db\210deZ)\207" [epa-file-name-regexp decode-coding-inserted-region substring 0 string-match] 15 (#$ . 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 "\304 \210\203\204\203\305\306!\210\307!\262\3101&\311\312C\"0\202(\210\313\211\206-\314 p\313\211\211\n\203;\315\316B\"\210\317\320\321\322\"B\"\210\323\324\325\326\327!\330\"\331$\216\3321l\333\313#\211\2620\202\300\334
	\"\211\262\203{\313\241\210\335@\336N>\203\223\211A@\337\232\203\223\305\340\3418\"\210\342!\211\203\255\343\302!\210\344\345\346\313\347$\210\350!\210\351\203\266\335\202\267\352\353AB\"\262\262\210q\210\343\303!\210\354\355\356\357\"\"	\204\333\203\350\360\206\343\324#\262\212\n?\205\360\203\361



%\202\362




&\262)\n\203\363 \210*D\207" [buffer-file-name 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" 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 signal file-missing "Opening input file" mapcar car epg-context-result-for encrypted-to substring epa-file--replace-text epa-file-decode-and-insert set-visited-file-modtime] 19 (#$ . 3435)])
(put 'insert-file-contents 'epa-file 'epa-file-insert-file-contents)
#@34 

(fn STRING FILE VISIT BEG END)
(defalias 'epa-file--replace-text #[1285 "`\300\211db\210`\262\301\302&\262e{d{\232\203*d|\210\202UeW\203L\211dW\203L\303ff\"\203LT\262\211T\262\202,|\210|\266dW\203ab\210\202ddb\210\207" [nil epa-file-decode-and-insert t eql] 15 (#$ . 5223)])
#@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\3321\345\333;\203z\334	\"\202\266\204\205e\262d\262p\262\335\336!r\211q\210\337\340\341\342\343!\344\"\345$\216\346#\210\347rq\2109)!\210\334\350 \n\"*\262:\351=\204\311:\204\323\352\303p\"\204\323\353\354#\202\335\205\335\355\"#\211\2620\202\356!\210\357\f;\"\211\262\203\372\316\241\210\326\360\361AB\"\262\210\362\363\316\257\"\210\364\365!\2035\351=\203/\n\366 \210\202;;\203;\366 \210\351=\204O\316=\204O;\205S\367\370	\")\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 (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" buffer-file-format epa-file-select-keys epa-file-passphrase-alist] 22 (#$ . 5545)])
(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 (#$ . 7572) 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)
Zerion Mini Shell 1.0