From: yamaoka <yamaoka>
Date: Fri, 17 Sep 2010 15:51:25 +0000 (+0000)
Subject: wl-demo.el: Prune functions provided temporarily to avoid compile warnings in the... 
X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-2^2~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=424e7a3cb5aa23eed0819affa8acf6eaf83b0e88;p=elisp%2Fwanderlust.git

wl-demo.el: Prune functions provided temporarily to avoid compile warnings in the end.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c2580e9..8b79ed3 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-18  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* wl-demo.el: Prune functions provided temporarily to avoid
+	compile warnings in the end.
+
 2010-09-08  Tetsurou Okazaki  <okazaki@be.to>
 
 	* wl-spam.el (wl-spam-register-spam-messages): Put spam mark on
diff --git a/wl/wl-demo.el b/wl/wl-demo.el
index 38f78c0..a328149 100644
--- a/wl/wl-demo.el
+++ b/wl/wl-demo.el
@@ -408,6 +408,17 @@ argument."
 	       1))
     buffer))
 
+;; Prune functions provided temporarily to avoid compile warnings.
+(eval-when-compile
+  (dolist (fn '(face-background-name
+		frame-char-height frame-char-width glyph-height glyph-width
+		image-size make-extent propertize set-extent-end-glyph
+		window-pixel-height window-pixel-width))
+    (when (and (get fn 'defalias-maybe)
+	       (eq (symbol-function fn) 'ignore))
+      (put fn 'defalias-maybe nil)
+      (fmakunbound fn))))
+
 (require 'product)
 (product-provide (provide 'wl-demo) (require 'wl-version))