bug fix for ESC-m.

This commit is contained in:
Kazu Yamamoto 2010-04-23 18:51:07 +09:00
parent b8b22daba9
commit 61ebb031f4

View File

@ -171,7 +171,12 @@
(defun ghc-load-module-buffer () (defun ghc-load-module-buffer ()
(interactive) (interactive)
(when (eq major-mode 'haskell-mode) (when (eq major-mode 'haskell-mode)
(mapc 'ghc-load-module (ghc-gather-import-modules-buffer)))) (ghc-load-module-this-buffer)))
(defun ghc-load-module-this-buffer ()
(dolist (mod (ghc-gather-import-modules))
(ghc-load-module mod))
(ghc-merge-keywords))
(defun ghc-load-module (mod) (defun ghc-load-module (mod)
(when (and (member mod ghc-module-names) (when (and (member mod ghc-module-names)
@ -192,10 +197,7 @@
;;; Background Idle Timer ;;; Background Idle Timer
;;; ;;;
(defun ghc-idle-timer () (defalias 'ghc-idle-timer 'ghc-load-module-this-buffer)
(dolist (mod (ghc-gather-import-modules))
(ghc-load-module mod))
(ghc-merge-keywords))
(defun ghc-gather-import-modules () (defun ghc-gather-import-modules ()
(let ((bufs (mapcar 'buffer-name (buffer-list))) (let ((bufs (mapcar 'buffer-name (buffer-list)))