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:
parent
efca8f8270
commit
04972673dd
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user