From 92b1edb1f8232785c25cc9484a5dfb78b51da414 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 17 May 2019 04:47:31 +0200 Subject: Remove obsolete epg functions * lisp/epg.el (epg-start-sign-keys, epg-sign-keys): Remove functions declared obsolete since Emacs 23.1. --- lisp/epa.el | 23 ----------------------- 1 file changed, 23 deletions(-) (limited to 'lisp/epa.el') diff --git a/lisp/epa.el b/lisp/epa.el index c8abff4753f..59c11ab5412 100644 --- a/lisp/epa.el +++ b/lisp/epa.el @@ -1282,29 +1282,6 @@ If no one is selected, default public key is exported. "))) (epa-display-error context) (signal (car error) (cdr error)))))) -;; (defun epa-sign-keys (keys &optional local) -;; "Sign selected KEYS. -;; If a prefix-arg is specified, the signature is marked as non exportable. - -;; Don't use this command in Lisp programs!" -;; (declare (interactive-only t)) -;; (interactive -;; (let ((keys (epa--marked-keys))) -;; (unless keys -;; (error "No keys selected")) -;; (list keys current-prefix-arg))) -;; (let ((context (epg-make-context epa-protocol))) -;; (epg-context-set-passphrase-callback context -;; #'epa-passphrase-callback-function) -;; (epg-context-set-progress-callback context -;; (cons -;; #'epa-progress-callback-function -;; "Signing keys...")) -;; (message "Signing keys...") -;; (epg-sign-keys context keys local) -;; (message "Signing keys...done"))) -;; (make-obsolete 'epa-sign-keys "Do not use.") - (provide 'epa) ;;; epa.el ends here -- cgit v1.2.3