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

fix(emacs/lean-server): wrap correct function with save-match-data

Browse source 
In emacs 24, apparently just setting a timer changed the match data...
This commit is contained in:
Gabriel Ebner 2016-12-11 13:55:52 -05:00 • committed by Leonardo de Moura
parent c8d6836aa1
commit a24490a06a
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -194,16 +194,16 @@
(defun lean-server-sync ()
"Synchronizes the current buffer state with lean server"
(save-match-data
(lean-server-send-command
'sync (list :file_name (buffer-file-name)
:content (buffer-string)))))
(lean-server-send-command
'sync (list :file_name (buffer-file-name)
:content (buffer-string))))
(defvar-local lean-server-sync-timer nil)
(defun lean-server-change-hook (begin end len)
(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)))
(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))))
(provide 'lean-server)