 			"System.Directory"
 			"System.FilePath"
 			"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)
+  )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;

;;;

(defvar ghc-idle-timer-interval 30
 "*Period of idele timer in second. When timeout, the names of
unloaded modules are loaded")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; Background Idle Timer
;;;

(defalias 'ghc-idle-timer 'ghc-load-module-all-buffers)

(provide 'ghc-comp)
