From 6450907e01d948123a8191f117a03b37dc126638 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 22 May 2013 00:07:19 -0700 Subject: [PATCH] Silence allout.el compilation * lisp/allout.el: No need to load epa, epg, overlay when compiling. (epg-context-set-passphrase-callback, epg-list-keys) (epg-decrypt-string, epg-encrypt-string, epg-user-id-string) (epg-key-user-id-list): Declare. --- lisp/ChangeLog | 5 +++++ lisp/allout.el | 15 ++++++++++----- 2 files changed, 15 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 371fc625072..0e3fbb89976 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2013-05-22 Glenn Morris + * allout.el: No need to load epa, epg, overlay when compiling. + (epg-context-set-passphrase-callback, epg-list-keys) + (epg-decrypt-string, epg-encrypt-string, epg-user-id-string) + (epg-key-user-id-list): Declare. + * emulation/viper-cmd.el (viper-set-searchstyle-toggling-macros) (viper-set-parsing-style-toggling-macro) (viper-set-emacs-state-searchstyle-macros): diff --git a/lisp/allout.el b/lisp/allout.el index 9ca72514fd2..5a9b03b7a0e 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -77,11 +77,6 @@ ;;;_* Dependency loads (require 'overlay) (eval-when-compile - ;; Most of the requires here are for stuff covered by autoloads, which - ;; byte-compiling doesn't trigger. - (require 'epg) - (require 'epa) - (require 'overlay) ;; `cl' is required for `assert'. `assert' is not covered by a standard ;; autoload, but it is a macro, so that eval-when-compile is sufficient ;; to byte-compile it in, or to do the require when the buffer evalled. @@ -6046,6 +6041,16 @@ See `allout-toggle-current-subtree-encryption' for more details." (run-hook-with-args 'allout-structure-added-functions bullet-pos subtree-end)))) + +(declare-function epg-context-set-passphrase-callback "epg" + (context passphrase-callback)) +(declare-function epg-list-keys "epg" (context &optional name mode)) +(declare-function epg-decrypt-string "epg" (context cipher)) +(declare-function epg-encrypt-string "epg" + (context plain recipients &optional sign always-trust)) +(declare-function epg-user-id-string "epg" (user-id)) +(declare-function epg-key-user-id-list "epg" (key)) + ;;;_ > allout-encrypt-string (text decrypt allout-buffer keymode-cue ;;; &optional rejected) (defun allout-encrypt-string (text decrypt allout-buffer keymode-cue -- 2.39.2