Author: sasugaanija
Date: Fri Dec 14 06:47:27 2007
New Revision: 5057
Modified:
trunk/emacs/uim.el
Log:
* emacs/uim.el
- (uim-update-font):
* Now, this function can be called as a command.
* Do nothing if the Emacs is running on the terminal.
Modified: trunk/emacs/uim.el
==============================================================================
--- trunk/emacs/uim.el (original)
+++ trunk/emacs/uim.el Fri Dec 14 06:47:27 2007
@@ -823,21 +823,23 @@
;; Update font
;;
(defun uim-update-font ()
- (mapcar
- '(lambda (x)
- (let ((font (or (cdr (assq 'font (frame-parameters)))
- (face-font 'default))))
- (set-face-font x font)))
+ (interactive)
+ (if window-system
+ (mapcar
+ '(lambda (x)
+ (let ((font (or (cdr (assq 'font (frame-parameters)))
+ (face-font 'default))))
+ (set-face-font x font)))
- '(uim-preedit-face
- uim-preedit-underline-face
- uim-preedit-highlight-face
- uim-preedit-highlight-underline-face
- uim-separator-face
- uim-candidate-odd-face
- uim-candidate-even-face
- uim-candidate-selected-face
- uim-candidate-nth-face)))
+ '(uim-preedit-face
+ uim-preedit-underline-face
+ uim-preedit-highlight-face
+ uim-preedit-highlight-underline-face
+ uim-separator-face
+ uim-candidate-odd-face
+ uim-candidate-even-face
+ uim-candidate-selected-face
+ uim-candidate-nth-face))))
(defun uim-freeze-buffer ()
