null+****@clear*****
null+****@clear*****
Fri Jan 20 14:57:03 JST 2012
yuta yamada 2012-01-20 14:57:03 +0900 (Fri, 20 Jan 2012)
New Revision: 1a5f60eab9af0c6928253f4a4a82693d78cd8d93
Log:
apply interval-variable for loga-fly-mode
Modified files:
logalimacs.el
Modified: logalimacs.el (+4 -1)
===================================================================
--- logalimacs.el 2012-01-20 13:37:00 +0900 (25482a5)
+++ logalimacs.el 2012-01-20 14:57:03 +0900 (2cbbb2c)
@@ -36,6 +36,9 @@
(defvar loga-fly-mode nil)
(defvar loga-make-buffer "*logalimacs*")
+(defvar loga-fly-mode-interval 1
+ "timer-valiable for loga-fly-mode, credit par sec.")
+
(defvar loga-command-alist
'((?a . "add")
(?c . "config")
@@ -165,7 +168,7 @@
(defun loga-fly-mode-on ()
(setq loga-fly-mode t
loga-fly-timer
- (run-with-idle-timer 1 t
+ (run-with-idle-timer (symbol-value 'loga-fly-mode-interval) t
(lambda()
(let* ((fly-word (loga-return-word-on-cursor)))
(if fly-word