Current File : //usr/local/share/emacs/27.2/lisp/epa-hook.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(custom-declare-group 'epa-file nil "The EasyPG Assistant hooks for transparent file encryption" :version "23.1" :group 'epa)
#@23
(fn VARIABLE VALUE)
(defalias 'epa-file--file-name-regexp-set #[514 "\300\"\210\301\302!\205
\302 \207" [set-default fboundp epa-file-name-regexp-update] 5 (#$ . 534)])
(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 (#$ . 1451))
(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)
#@337 Toggle automatic file encryption/decryption (Auto Encryption mode).
If called interactively, enable Auto-Encryption mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
(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\315\316\"\210\n B\320\321\310\304!\203D \322\202E \323\"\210\324\325!\203o \326\304!\210\305 \203] \211\305 \232\203o \327\330\331\310\304!\203j \332\202k \333#\266\210\334 \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-hook epa-file-find-file-hook add-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 (#$ . 2913) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar auto-encryption-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\303\311\312\313#\210\303\311\314\315#\210\316\317!\207" [auto-encryption-mode-map auto-encryption-mode-hook variable-documentation put "Hook run after entering or leaving `auto-encryption-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode auto-encryption-mode nil boundp epa-file-handler safe-magic t operations (write-region insert-file-contents) provide epa-hook] 6)
Mini Shell