Pārlūkot izejas kodu

add my-idle-hook

pull/1/head
10sr pirms 11 gadiem
vecāks
revīzija
917921b92b
1 mainītis faili ar 16 papildinājumiem un 0 dzēšanām
  1. +16
    -0
      emacs.el

+ 16
- 0
emacs.el Parādīt failu

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



Notiek ielāde…
Atcelt
Saglabāt