diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2009-09-06 17:44:24 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2009-09-06 17:44:24 +0000 |
| commit | e35bcf265454cc64f9416686f554defa77ab89f0 (patch) | |
| tree | cd53ad54ddb4cf60e60eb684059fd30cb7d19879 /lib/unicode-tokens.el | |
| parent | 7872d4000372476619c12d3ab490ad5c2496a395 (diff) | |
Supress spurious warnings
Diffstat (limited to 'lib/unicode-tokens.el')
| -rw-r--r-- | lib/unicode-tokens.el | 16 |
1 files 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))) |