| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/epa-hook.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:50 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/epa-hook.el ;;; in Emacs version 24.3 ;;; 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 "\n\n(fn)"] "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 "\n\n(fn)"] "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 (#$ . 1601)) (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 \300\301\302\303\304\305\306!\307\"\310\311%D\215\207" [safe funcall make-byte-code 0 "\301\302\300\"\210\303\207" vconcat vector [mapc #[257 "\211;?\205\n \300\301\302\"\207" [throw safe nil] 4 "\n\n(fn ELT)"] t] 3 "\n\n(fn)"] 9 "\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 "\n\n(fn)" 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 "\n\n(fn)"]) (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 "\n\n(fn)"] "Non-nil if Auto-Encryption mode is enabled.\nSee the command `auto-encryption-mode' for 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=\203 ?\202 \307!\310V\311 \n\"\312\313\314\"\210\311 \f\"\2033 \nB\315\316\314\"\210 \fB\317\320\203= \321\202> \322\"\210\323\324!\203c \325\300!\210\305 \203V \211\305 \232\203c \326\327\203` \330\202a \331\"\210\210\332 \210\207" [auto-encryption-mode epa-file-handler file-name-handler-alist epa-file-auto-mode-alist-entry auto-mode-alist current-message toggle 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" "en" "dis" force-mode-line-update] 5 (#$ . 3199) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) (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)