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

[elisp/wanderlust.git] / wl / wl-demo.el

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))