From 20b0ec9f107f8198efc247a4a6ae76d21f89bafd Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 18 Aug 2015 01:35:23 +0000 Subject: [PATCH] message.el: Silent the byte compiler * 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/ChangeLog | 7 +++++++ lisp/message.el | 30 ++++++++++++++++-------------- 2 files changed, 23 insertions(+), 14 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1453f6041..515843ca7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2015-08-18 Katsumi Yamaoka + + * 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. + 2015-08-17 Katsumi Yamaoka * message.el (message-overlay-get, message-overlays-in) diff --git a/lisp/message.el b/lisp/message.el index 9e54a940b..59e3335fe 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -2049,6 +2049,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))) + ;;; @@ -7929,20 +7945,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) -- 2.25.1