null+****@clear*****
null+****@clear*****
Tue Jan 10 19:00:14 JST 2012
yuta yamada 2012-01-10 19:00:14 +0900 (Tue, 10 Jan 2012)
New Revision: 31571a070669fcfafc26418c7b6354cd32e784e7
Log:
add loga-fly-mode docstring
Modified files:
logalimacs.el
Modified: logalimacs.el (+13 -12)
===================================================================
--- logalimacs.el 2012-01-08 19:04:04 +0900 (1524b2f)
+++ logalimacs.el 2012-01-10 19:00:14 +0900 (ed7d6ff)
@@ -108,8 +108,8 @@
(t
(read-string (or prompt "types here: ")))))
-(defun loga-return-word-of-cursor()
- "return word where point of cursor"
+(defun loga-return-word-on-cursor()
+ "return word where point on cursor"
(interactive)
(let* (match-word)
(save-excursion
@@ -124,6 +124,15 @@
match-word
)))
+(defun loga-fly-mode ()
+ "toggle loga-fly-mode-on and loga-fly-mode-off"
+ (interactive)
+ (if (symbol-value 'loga-fly-mode)
+ (loga-fly-mode-off)
+ (loga-fly-mode-on)
+ )
+ )
+
(defun loga-fly-mode-on()
(setq loga-fly-timer
(run-with-idle-timer 1 t
@@ -134,21 +143,13 @@
)
))))
(setq loga-fly-mode t)
- (message "loga fly mode enable")
+ (message "loga-fly-mode enable")
)
(defun loga-fly-mode-off()
(cancel-timer loga-fly-timer)
(setq loga-fly-mode nil)
- (message "loga fly mode disable")
- )
-
-(defun loga-fly-mode ()
- (interactive)
- (if (symbol-value 'loga-fly-mode)
- (loga-fly-mode-off)
- (loga-fly-mode-on)
- )
+ (message "loga-fly-mode disable")
)
(provide 'logalimacs)