fixing/disabling idle timer.

This commit is contained in:
Kazu Yamamoto 2014-04-21 17:35:10 +09:00
parent 334283a4cf
commit 3dc8e345b2

View File

@ -16,7 +16,7 @@
;;; ;;;
(defvar ghc-idle-timer-interval 30 (defvar ghc-idle-timer-interval 30
"*Period of idele timer in second. When timeout, the names of "*Period of idle timer in second. When timeout, the names of
unloaded modules are loaded") unloaded modules are loaded")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -101,7 +101,8 @@ unloaded modules are loaded")
"System.Directory" "System.Directory"
"System.FilePath" "System.FilePath"
"System.IO")) "System.IO"))
(run-with-idle-timer ghc-idle-timer-interval 'repeat 'ghc-idle-timer)) ;; (run-with-idle-timer ghc-idle-timer-interval 'repeat 'ghc-idle-timer)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ;;;
@ -314,8 +315,6 @@ unloaded modules are loaded")
;;; Background Idle Timer ;;; Background Idle Timer
;;; ;;;
(defalias 'ghc-idle-timer 'ghc-load-module-all-buffer) (defalias 'ghc-idle-timer 'ghc-load-module-all-buffers)
(defun ghc-load-module-all-buffer () nil)
(provide 'ghc-comp) (provide 'ghc-comp)