elisp: Fix excessive map-file calls (again)

(current-buffer) refered to the ghc-mod process buffer not the (user)
file buffer we actually wanted to check for modifications.
This commit is contained in:
Daniel Gröber 2017-05-26 09:40:29 +02:00
parent efca8f8270
commit 04972673dd

View File

@ -55,7 +55,7 @@
(let ((pro (ghc-get-process cpro name buf root))
(map-cmd (format "map-file %s\n" file)))
; (unmap-cmd (format "unmap-file %s\n" file)))
(when (buffer-modified-p (current-buffer))
(when (buffer-modified-p cbuf)
(setq ghc-process-file-mapping t)
(setq ghc-process-async-after-callback nil)
(erase-buffer)