Author: sasugaanija
Date: Sat Jun 23 21:13:27 2007
New Revision: 4609
Modified:
trunk/emacs/uim-var.el
trunk/emacs/uim.el
Log:
* uim.el
* uim-var.el
- Fix bug; font faces of the candidates are lost when the
idle time exceeds 3 seconds (Emacs21)
Modified: trunk/emacs/uim-var.el
==============================================================================
--- trunk/emacs/uim-var.el (original)
+++ trunk/emacs/uim-var.el Sat Jun 23 21:13:27 2007
@@ -388,6 +388,7 @@
(uim-deflocalvar uim-after-change-functions nil)
(uim-deflocalvar uim-fontification-functions nil)
+(uim-deflocalvar uim-timer-idle-list nil)
;; save top point of current window to lock scroll
(uim-deflocalvar uim-window-force-scrolled nil)
Modified: trunk/emacs/uim.el
==============================================================================
--- trunk/emacs/uim.el (original)
+++ trunk/emacs/uim.el Sat Jun 23 21:13:27 2007
@@ -836,6 +836,10 @@
(setq uim-after-change-functions after-change-functions)
(setq after-change-functions nil)
+ (when (boundp 'timer-idle-list)
+ (setq uim-timer-idle-list timer-idle-list)
+ (setq timer-idle-list nil))
+
(when (boundp 'fontification-functions)
(setq uim-fontification-functions fontification-functions)
(setq fontification-functions nil))
@@ -848,6 +852,10 @@
(when uim-buffer-frozen ;; avoid multiple unfreeze
(setq after-change-functions uim-after-change-functions)
(setq uim-after-change-functions nil)
+
+ (when (boundp 'timer-idle-list)
+ (setq timer-idle-list uim-timer-idle-list)
+ (setq uim-timer-idle-list nil))
(when (boundp 'fontification-functions)
(setq fontification-functions uim-fontification-functions)
