ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/epa-file.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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)
(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)"])
#@71 Non-nil means don't try to decrypt .gpg files when operating on them.
(defvar epa-inhibit nil (#$ . 2172))
(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 "\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$\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-error "Opening input file"] 8])
(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\325H >\204^ \326\327\330D\"\210\211\331\nI\266\332\325\333\334\335 !\336\"\337$\216\203z eb\210\3401\213 \341\315#\211\2620\202\322 \342
\"\211\262\203\232 \315\241\210\211@\343=\203\260 \211A@\344\232\203\260 \307\345\3468\"\210\347!\203\311 \350\304!\210\211\351\352\353\315\354$\210\355!\210\326\343\356AB\"\262\210q\210\350\305!\210\357\360\361\362\"\" \204\355 \203\371 \n\206\364 \325\nO\262\212\n?\205\214``}\210\363
&\210deZ\262)\203%`d|\210)\n\203.\364 \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" 0 signal wrong-type-argument epg-context 19 make-byte-code "\300\205
\301\300!\205
\302\300!\207" vconcat vector [file-exists-p delete-file] 2 (error) epg-decrypt-file assoc file-error "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 "Opening input file" mapcar car epg-context-result-for encrypted-to epa-file-decode-and-insert set-visited-file-modtime] 19 "\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 "\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\325H\f>\204^ \326\327\330D\"\210\211\331
I\266\325H\f>\204u \326\327\330D\"\210\211\3329I\266\3331\375 \334;\203\222 \335 \"\202\316 \204\235 e\262d\262p\262\336\337!r\211q\210\340\325\341\342\343!\344\"\345$\216\346#\210\347rq\210:)!\210\335\350 \n\"*\262;\351=\204\341 ;\204\353 \352\303p\"\204\353 \353\354#\202\365 \205\365 \355\"#\211\2620\202\356!\210\357\f<\"\211\262\203\316\241\210\326\360\361AB\"\262\210\362\363\316\257\"\210\364\365!\20375\351=\203G\n\366 \210\202S;\203S\366 \210\351=\204g\316=\204g;\205k\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" 0 signal wrong-type-argument epg-context 4 19 (error) epg-encrypt-string epa-file--encode-coding-string generate-new-buffer " *temp*" make-byte-code "\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 "\n\n(fn START END FILE &optional APPEND VISIT LOCKNAME MUSTBENEW)"])
(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 "\211\302H>\204 \303\304\305D\"\210\211\306H@\302H >\2044 \303\304\307\302H>\204- \303\304\305D\"\210\306H@D\"\210\211\302H>\204C \303\304\305D\"\210\211\306H@\310H\207" [cl-struct-epg-key-tags cl-struct-epg-sub-key-tags 0 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 (#$ . 7443) nil])
(defalias 'epa-file-enable #[0 " >\203\n \304\305!\207 B\306\307\310\"\210\n B\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)
Kontol Shell Bypass