403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.216.141
Web Server : Apache
System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64
User : sws1073854427 ( 1073854427)
PHP Version : 8.4.23
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/share/emacs/28.2/lisp/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/epa-hook.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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 (#$ . 211)])
(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 #1=""] "Regexp which matches filenames to be encrypted with GnuPG.\n\nIf you set this outside Custom while epa-file is already enabled,\nyou have to call `epa-file-name-regexp-update' after setting it\nto properly update `file-name-handler-alist'.  Setting this\nthrough Custom does that automatically." :type regexp :group epa-file :set epa-file--file-name-regexp-set epa-file-inhibit-auto-save #[0 "\300\207" [t] 1 #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 (#$ . 1140))
(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))
#@176 Update `file-name-handler-alist' after configuring outside Custom.
After setting `epa-file-name-regexp-update' outside the Custom
interface, update `file-name-handler-alist'.
(defalias 'epa-file-name-regexp-update #[0 "@	\232?\205	\240\207" [epa-file-handler epa-file-name-regexp] 2 (#$ . 1723) 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 :type boolean :group epa-file :version "23.1"] 14)
#@653 Toggle automatic file encryption/decryption (Auto Encryption mode).

This is a minor mode.  If called interactively, toggle the
`Auto-Encryption mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='auto-encryption-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'auto-encryption-mode #[256 "\306 \307\305\310=\203\311\305!?\202!\247\203 \312W\203 \313\202!\314\"\210\315\300!\2038\316\305\"\311\305!\2038\305B\316	\n\"\317\320\321\"\210\316\f\"
\203X	\nB\322\320\321\"\210\fB\323\324\311\305!\203d\325\202e\326\"\210\327\330!\203\215\331\305!\210\306 \203}\211\306 \232\203\215\332\333\311\305!\203\211\334\202\212\335\336#\210\210\337 \210\311\305!\207" [global-minor-modes 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 1 nil t boundp 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] 6 (#$ . 2795) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar auto-encryption-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\303\314\315\316#\210\303\314\317\320#\210\321\322!\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.)" custom-type hook standard-value nil add-minor-mode auto-encryption-mode boundp epa-file-handler safe-magic t operations (write-region insert-file-contents) provide epa-hook] 6)

Youez - 2016 - github.com/yon3zu
LinuXploit