Browse Source

Merge branch 'idlehook'

pull/1/head
10sr 11 years ago
parent
commit
ff4b54e8ea
1 changed files with 16 additions and 0 deletions
  1. +16
    -0
      emacs.el

+ 16
- 0
emacs.el View File

@@ -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



Loading…
Cancel
Save