[Emacs-diffs] /srv/bzr/emacs/trunk r112665: Silence allout.el compilation

[Glenn Morris]

------------------------------------------------------------
revno: 112665
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2013-05-22 00:07:19 -0700
message:
  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.
modified:
  lisp/ChangeLog
  lisp/allout.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-22 03:21:30 +0000
+++ b/lisp/ChangeLog    2013-05-22 07:07:19 +0000
@@ -1,5 +1,10 @@
 2013-05-22  Glenn Morris  <address@hidden>
 
+       * 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):

=== modified file 'lisp/allout.el'
--- a/lisp/allout.el    2013-01-02 16:13:04 +0000
+++ b/lisp/allout.el    2013-05-22 07:07:19 +0000
@@ -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 @@
 
       (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