From e35bcf265454cc64f9416686f554defa77ab89f0 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Sun, 6 Sep 2009 17:44:24 +0000
Subject: Supress spurious warnings

---
 lib/unicode-tokens.el | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/lib/unicode-tokens.el b/lib/unicode-tokens.el
index e80b61ae..ae394025 100644
--- a/lib/unicode-tokens.el
+++ b/lib/unicode-tokens.el
@@ -1066,19 +1066,22 @@ Commands available are:
     (interactive)
     (cond
      (unicode-tokens-respond-to-change-font
-      (unicode-tokens-set-font-var-aux
-       unicode-tokens-respond-to-change-font
-       ns-input-font))
+	(unicode-tokens-set-font-var-aux
+	 unicode-tokens-respond-to-change-font
+	 (with-no-warnings
+	   ns-input-font)))
      (t
       (apply 'old-ns-respond-to-change-font args))))
 
   (defun ns-popup-font-panel ()
     (setq unicode-tokens-respond-to-change-font nil)
-    (old-ns-popup-font-panel))
+    (with-no-warnings
+      (old-ns-popup-font-panel)))
 
   (defun unicode-tokens-popup-font-panel (fontvar)
     (setq unicode-tokens-respond-to-change-font fontvar)
-    (old-ns-popup-font-panel))
+    (with-no-warnings
+      (old-ns-popup-font-panel)))
 )
 
 ;; parameterised version of function from menu-bar.el (Emacs 23.1)
@@ -1088,7 +1091,8 @@ Commands available are:
   (interactive)
   (let (font spec)
     (if (fboundp 'ns-popup-font-panel)
-	(unicode-tokens-popup-font-panel fontvar)
+	(with-no-warnings
+	  (unicode-tokens-popup-font-panel fontvar))
       (cond
        ((fboundp 'x-select-font)
 	(setq font (x-select-font)))
-- 
cgit v1.2.3