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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c2580e9..8b79ed3 100644 (file)
--- 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 (file)
--- 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))