max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

fix(emacs): make sure lean-server-sync is executed in the correct buffer

Browse source
This commit is contained in:
Sebastian Ullrich 2016-12-18 22:41:56 +01:00 • committed by Leonardo de Moura
parent 1cfef1c6d9
commit aae15901ac
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/emacs/lean-server.el
View file

@ -211,11 +211,12 @@
(lean-server-ensure-alive)
(lean-server-session-send-command lean-server-session cmd params cb error-cb))
(defun lean-server-sync ()
"Synchronizes the current buffer state with lean server"
(lean-server-send-command
'sync (list :file_name (buffer-file-name)
:content (buffer-string))))
(defun lean-server-sync (&optional buf)
"Synchronizes the state of BUF (or the current buffer, if nil) with the lean server"
(with-current-buffer (or buf (current-buffer))
(lean-server-send-command
'sync (list :file_name (buffer-file-name)
:content (buffer-string)))))
(defvar-local lean-server-sync-timer nil)
@ -223,6 +224,6 @@
(save-match-data
(when lean-server-sync-timer (cancel-timer lean-server-sync-timer))
(setq lean-server-sync-timer
(run-at-time "200 milliseconds" nil #'lean-server-sync))))
(run-at-time "200 milliseconds" nil #'lean-server-sync (current-buffer)))))
(provide 'lean-server)