Mercurial > emacs

comparison lisp/epa.el @ 91787:457a4ba95667

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
EasyPG: Update manual, menu label, epa-menu-mode->epa-mode, dired minor mode.
author Michael Olson <mwolson@gnu.org>
date Tue, 12 Feb 2008 01:24:20 +0000
parents e9326c8f35b0
children c895a1d0e007
comparison
equal deleted inserted replaced
91786:459312b90930 91787:457a4ba95667
43 (defcustom epa-info-window-height 5 43 (defcustom epa-info-window-height 5
44 "Number of lines used to display status information." 44 "Number of lines used to display status information."
45 :type 'integer 45 :type 'integer
46 :group 'epa) 46 :group 'epa)
47 47
48 (defcustom epa-global-minor-modes '(epa-dired-mode 48 (defcustom epa-global-minor-modes '(epa-global-dired-mode
49 epa-file-mode
50 epa-global-mail-mode 49 epa-global-mail-mode
51 epa-menu-mode) 50 epa-file-mode)
52 "Globally defined minor modes to hook into other modes." 51 "Globally defined minor modes to hook into other modes."
53 :type '(repeat symbol) 52 :type '(repeat symbol)
54 :group 'epa) 53 :group 'epa)
55 54
56 (defgroup epa-faces nil 55 (defgroup epa-faces nil
238 keymap)) 237 keymap))
239 238
240 (defvar epa-menu nil) 239 (defvar epa-menu nil)
241 240
242 (defconst epa-menu-items 241 (defconst epa-menu-items
243 '("EasyPG Assistant" 242 '("Encryption/Decryption"
244 ("Decrypt" 243 ("Decrypt"
245 ["File" epa-decrypt-file 244 ["File" epa-decrypt-file
246 :help "Decrypt a file"] 245 :help "Decrypt a file"]
247 ["Region" epa-decrypt-region 246 ["Region" epa-decrypt-region
248 :help "Decrypt the current region"]) 247 :help "Decrypt the current region"])
1218 ;; (epg-sign-keys context keys local) 1217 ;; (epg-sign-keys context keys local)
1219 ;; (message "Signing keys...done"))) 1218 ;; (message "Signing keys...done")))
1220 ;; (make-obsolete 'epa-sign-keys "Do not use.") 1219 ;; (make-obsolete 'epa-sign-keys "Do not use.")
1221 1220
1222 ;;;###autoload 1221 ;;;###autoload
1223 (define-minor-mode epa-menu-mode 1222 (define-minor-mode epa-mode
1224 "Minor mode to hook EasyPG into the menu-bar." 1223 "Minor mode to hook EasyPG into various modes.
1224 See `epa-global-minor-modes'."
1225 :global t :init-value nil :group 'epa :version "23.1" 1225 :global t :init-value nil :group 'epa :version "23.1"
1226 (unless epa-menu 1226 (unless epa-menu
1227 (easy-menu-define epa-menu nil "EasyPG Assistant global menu" 1227 (easy-menu-define epa-menu nil "EasyPG Assistant global menu"
1228 epa-menu-items)) 1228 epa-menu-items))
1229 (easy-menu-remove-item nil '("Tools") "EasyPG Assistant") 1229 (easy-menu-remove-item nil '("Tools") "Encryption/Decryption")
1230 (if epa-menu-mode 1230 (if epa-mode
1231 (easy-menu-add-item nil '("Tools") epa-menu))) 1231 (easy-menu-add-item nil '("Tools") epa-menu))
1232
1233 ;;;###autoload
1234 (define-minor-mode epa-mode
1235 "Minor mode to hook EasyPG into various modes.
1236 See `epa-global-minor-modes'."
1237 :global t :init-value nil :group 'epa :version "23.1"
1238 (let ((modes epa-global-minor-modes) 1232 (let ((modes epa-global-minor-modes)
1239 symbol) 1233 symbol)
1240 (while modes 1234 (while modes
1241 (setq symbol (car modes)) 1235 (setq symbol (car modes))
1242 (if (and symbol 1236 (if (and symbol
1243 (fboundp symbol)) 1237 (fboundp symbol))
1244 (funcall symbol (if epa-mode 1 0)) 1238 (funcall symbol epa-mode)
1245 (message "`%S' not found" (car modes))) 1239 (message "`%S' not found" (car modes)))
1246 (setq modes (cdr modes))))) 1240 (setq modes (cdr modes)))))
1247 1241
1248 (provide 'epa) 1242 (provide 'epa)
1249 1243