ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/epa-hook.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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 #[514 "\300\"\210\301\302!\205
\302 \207" [set-default fboundp epa-file-name-regexp-update] 5 "\n\n(fn VARIABLE VALUE)"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\311&\207" [custom-declare-variable epa-file-name-regexp funcall function #[0 "\300\301!\207" [purecopy "\\.gpg\\(~\\|\\.~[0-9]+~\\)?\\'"] 2] "Regexp which matches filenames to be encrypted with GnuPG.\n\nIf you set this outside Custom while epa-file is already enabled, you\nhave to call `epa-file-name-regexp-update' after setting it to\nproperly update file-name-handler-alist. Setting this through Custom\ndoes that automatically." :type regexp :group epa-file :set epa-file--file-name-regexp-set epa-file-inhibit-auto-save #[0 "\300\207" [t] 1] "If non-nil, disable auto-saving when opening an encrypted file." boolean] 10)
#@86 Recipient(s) used for encrypting files.
May either be a string or a list of strings.
(defvar epa-file-encrypt-to nil (#$ . 1438))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put epa-file-encrypt-to safe-local-variable #[257 "\211;\206 \211<\205 \3002 \301\302\"\210\3030\207" [safe mapc #[257 "\211;?\205\n \300\301\302\"\207" [throw safe nil] 4 "\n\n(fn ELT)"] t] 4 "\n\n(fn VAL)"] permanent-local t] 4)
(defvar epa-file-handler (cons epa-file-name-regexp 'epa-file-handler))
(defvar epa-file-auto-mode-alist-entry (list epa-file-name-regexp nil 'epa-file))
(defalias 'epa-file-name-regexp-update #[0 "@ \232?\205 \240\207" [epa-file-handler epa-file-name-regexp] 2 nil nil])
(defalias 'epa-file-find-file-hook #[0 "\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])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317&
\207" [custom-declare-variable auto-encryption-mode funcall function #[0 "\300\207" [t] 1] "Non-nil if Auto-Encryption mode is enabled.\nSee the `auto-encryption-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `auto-encryption-mode'." :set custom-set-minor-mode :initialize custom-initialize-delay :group epa-file :type boolean :version "23.1"] 14)
#@255 Toggle automatic file encryption/decryption (Auto Encryption mode).
With a prefix argument ARG, enable Auto Encryption mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
(fn &optional ARG)
(defalias 'auto-encryption-mode #[256 "\305 \306\304\307=\203 \310\304!?\202 \311!\312V\"\210\313 \"\314\315\316\"\210\313\n \"\f\2038 B\317\320\316\"\210\n B\321\322\310\304!\203D \323\202E \324\"\210\325\326!\203o \327\304!\210\305 \203] \211\305 \232\203o \330\331\332\310\304!\203j \333\202k \334#\266\210\335 \210\310\304!\207" [epa-file-handler file-name-handler-alist epa-file-auto-mode-alist-entry auto-mode-alist auto-encryption-mode current-message set-default toggle default-value 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%s" "en" "dis" force-mode-line-update] 7 (#$ . 2900) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@185 Hook run after entering or leaving `auto-encryption-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar auto-encryption-mode-hook nil (#$ . 4070))
(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)
Kontol Shell Bypass