[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master c24a067: message.el: Silent the byte compiler
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] master c24a067: message.el: Silent the byte compiler |
Date: |
Tue, 18 Aug 2015 01:32:39 +0000 |
branch: master
commit c24a067eacef1b5292116e367b0213c27f1195b9
Author: Katsumi Yamaoka <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>
message.el: Silent the byte compiler
* 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 | 30 ++++++++++++++++--------------
1 files changed, 16 insertions(+), 14 deletions(-)
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 7e39aa9..a5196c8 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -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)))
+
;;;
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master c24a067: message.el: Silent the byte compiler,
Katsumi Yamaoka <=