ソースを参照

add my-idle-hook

pull/1/head
10sr 11年前
コミット
917921b92b
1個のファイルの変更16行の追加0行の削除
  1. +16
    -0
      emacs.el

+ 16
- 0
emacs.el ファイルの表示

@@ -145,6 +145,22 @@ found, otherwise returns nil."
(message "Tetris loaded!"))
(message "Tetris found!"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; my-idle-hook

(defvar my-idle-hook nil
"Hook run when idle for several secs.")
(defvar my-idle-hook-sec 5
"Second to run `my-idle-hook'.")
(run-with-idle-timer my-idle-hook-sec
t
(lambda ()
(run-hooks 'my-idle-hook)))

(add-hook 'my-idle-hook
(lambda ()
(message "idle hook message")))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; start and quit



読み込み中…
キャンセル
保存