[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/epa.el,v
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/epa.el,v |
Date: |
Sun, 27 Apr 2008 19:49:18 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 08/04/27 19:49:16
Index: epa.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/epa.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- epa.el 1 Apr 2008 05:28:04 -0000 1.7
+++ epa.el 27 Apr 2008 19:49:15 -0000 1.8
@@ -45,13 +45,6 @@
:type 'integer
:group 'epa)
-(defcustom epa-global-minor-modes '(epa-global-dired-mode
- epa-global-mail-mode
- epa-file-mode)
- "Globally defined minor modes to hook into other modes."
- :type '(repeat symbol)
- :group 'epa)
-
(defgroup epa-faces nil
"Faces for epa-mode."
:version "23.1"
@@ -236,44 +229,6 @@
(define-key keymap "q" 'delete-window)
keymap))
-(defvar epa-menu nil)
-
-(defconst epa-menu-items
- '("Encryption/Decryption"
- ("Decrypt"
- ["File" epa-decrypt-file
- :help "Decrypt a file"]
- ["Region" epa-decrypt-region
- :help "Decrypt the current region"])
- ("Verify"
- ["File" epa-verify-file
- :help "Verify digital signature of a file"]
- ["Region" epa-verify-region
- :help "Verify digital signature of the current region"])
- ("Sign"
- ["File" epa-sign-file
- :help "Create digital signature of a file"]
- ["Region" epa-sign-region
- :help "Create digital signature of the current region"])
- ("Encrypt"
- ["File" epa-encrypt-file
- :help "Encrypt a file"]
- ["Region" epa-encrypt-region
- :help "Encrypt the current region"])
- "----"
- ["Browse keyring" epa-list-keys
- :help "Browse your public keyring"]
- ("Import keys"
- ["File" epa-import-keys
- :help "Import public keys from a file"]
- ["Region" epa-import-keys-region
- :help "Import public keys from the current region"])
- ("Export key"
- ["To a File" epa-export-keys
- :help "Export public keys to a file"]
- ["To a Buffer" epa-insert-keys
- :help "Insert public keys after the current point"])))
-
(defvar epa-exit-buffer-function #'bury-buffer)
(define-widget 'epa-key 'push-button
@@ -1257,27 +1212,6 @@
;; (message "Signing keys...done")))
;; (make-obsolete 'epa-sign-keys "Do not use.")
-;;;###autoload
-(define-minor-mode epa-mode
- "Minor mode to hook EasyPG into various modes.
-See `epa-global-minor-modes'."
- :global t :init-value nil :group 'epa :version "23.1"
- (unless epa-menu
- (easy-menu-define epa-menu nil "EasyPG Assistant global menu"
- epa-menu-items))
- (easy-menu-remove-item nil '("Tools") "Encryption/Decryption")
- (if epa-mode
- (easy-menu-add-item nil '("Tools") epa-menu))
- (let ((modes epa-global-minor-modes)
- symbol)
- (while modes
- (setq symbol (car modes))
- (if (and symbol
- (fboundp symbol))
- (funcall symbol epa-mode)
- (message "`%S' not found" (car modes)))
- (setq modes (cdr modes)))))
-
(provide 'epa)
;; arch-tag: 38d20ced-20d5-4137-b17a-f206335423d7