From 04972673dd181afb14bea4c34cacd60f1e775cf6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= Date: Fri, 26 May 2017 09:40:29 +0200 Subject: [PATCH] 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. --- elisp/ghc-process.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/elisp/ghc-process.el b/elisp/ghc-process.el index 257a18e..6135d2b 100644 --- a/elisp/ghc-process.el +++ b/elisp/ghc-process.el @@ -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)