]> git.eshelyaron.com Git - emacs.git/commitdiff
message.el: Silent the byte compiler
authorKatsumi Yamaoka <yamaoka@jpl.org>
Tue, 18 Aug 2015 01:31:57 +0000 (01:31 +0000)
committerKatsumi Yamaoka <yamaoka@jpl.org>
Tue, 18 Aug 2015 01:31:57 +0000 (01:31 +0000)
* lisp/gnus/message.el (message-overlay-put, message-make-overlay)
(message-kill-all-overlays, message-overlays-in, message-overlay-get)
(message-delete-overlay, message-window-inside-pixel-edges):
Declare before using.

lisp/gnus/message.el

index 7e39aa9d3c1ff5e73dee9bb39c8cece4dd9d26a7..a5196c8d1ea750a8410836c39bbd7262dc6e38f4 100644 (file)
@@ -2005,6 +2005,22 @@ You must have the \"hashcash\" binary installed, see `hashcash-path'."
 (unless (fboundp 'mail-dont-reply-to)
   (defalias 'mail-dont-reply-to 'rmail-dont-reply-to))
 
+(eval-and-compile
+  (if (featurep 'emacs)
+      (progn
+       (defalias 'message-delete-overlay 'delete-overlay)
+       (defun message-kill-all-overlays ()
+         (mapcar #'delete-overlay (overlays-in (point-min) (point-max))))
+       (defalias 'message-make-overlay 'make-overlay)
+       (defalias 'message-overlay-get 'overlay-get)
+       (defalias 'message-overlay-put 'overlay-put)
+       (defalias 'message-overlays-in 'overlays-in)
+       (defalias 'message-window-inside-pixel-edges
+         'window-inside-pixel-edges))
+    (defun message-kill-all-overlays ()
+      (map-extents (lambda (extent ignore) (delete-extent extent))))
+    (defalias 'message-window-inside-pixel-edges 'ignore)))
+
 \f
 
 ;;;
@@ -7885,20 +7901,6 @@ which specify the range to operate on."
   (goto-char (prog1 (mark t)
               (set-marker (mark-marker) (point)))))
 
-(if (featurep 'emacs)
-    (progn
-      (defalias 'message-delete-overlay 'delete-overlay)
-      (defun message-kill-all-overlays ()
-       (mapcar #'delete-overlay (overlays-in (point-min) (point-max))))
-      (defalias 'message-make-overlay 'make-overlay)
-      (defalias 'message-overlay-get 'overlay-get)
-      (defalias 'message-overlay-put 'overlay-put)
-      (defalias 'message-overlays-in 'overlays-in)
-      (defalias 'message-window-inside-pixel-edges 'window-inside-pixel-edges))
-  (defun message-kill-all-overlays ()
-    (map-extents (lambda (extent ignore) (delete-extent extent))))
-  (defalias 'message-window-inside-pixel-edges 'ignore))
-
 ;; Support for toolbar
 (defvar tool-bar-mode)