2014-08-14 00:02:49 +00:00
|
|
|
;; Copyright (c) 2014 Microsoft Corporation. All rights reserved.
|
|
|
|
;; Released under Apache 2.0 license as described in the file LICENSE.
|
|
|
|
;;
|
|
|
|
;; Author: Soonho Kong
|
|
|
|
;;
|
|
|
|
|
2014-08-25 18:40:37 +00:00
|
|
|
(defvar lean-global-info-record nil
|
|
|
|
"A placeholder we save the info-record that we get from lean server")
|
2014-08-14 00:02:49 +00:00
|
|
|
|
2014-08-25 18:40:37 +00:00
|
|
|
(defvar lean-global-server-message-to-process nil
|
|
|
|
"A shared variable contains a received message to process.
|
2014-08-14 00:02:49 +00:00
|
|
|
|
2014-08-25 18:40:37 +00:00
|
|
|
A message is in the form of (TYPE PRE BODY)
|
|
|
|
where TYPE := INFO | SET | EVAL | ERROR,
|
|
|
|
PRE is a server message comes before the message
|
|
|
|
BODY is a body of the received message.")
|
|
|
|
|
|
|
|
(defvar lean-global-server-process nil
|
|
|
|
"lean server process")
|
|
|
|
|
2014-08-25 23:25:53 +00:00
|
|
|
(defvar lean-global-server-buffer nil
|
2014-08-25 18:40:37 +00:00
|
|
|
"Global buffer used to store messages sent by lean server")
|
2014-08-14 00:02:49 +00:00
|
|
|
|
2014-08-25 23:25:53 +00:00
|
|
|
(defvar lean-global-server-current-file-name nil
|
2014-08-14 00:02:49 +00:00
|
|
|
"Current filename that lean server is processing")
|
|
|
|
|
2014-08-27 07:48:55 +00:00
|
|
|
(defvar lean-global-nay-retry-timer nil
|
|
|
|
"Timer used to re-try eldoc-documentation-function for NAY.")
|
|
|
|
|
2014-08-14 00:02:49 +00:00
|
|
|
(defvar-local lean-changed-lines nil
|
|
|
|
"Changed lines")
|
|
|
|
(defvar-local lean-removed-lines nil
|
|
|
|
"Removed lines")
|
|
|
|
(defvar-local lean-inserted-lines nil
|
|
|
|
"Inserted lines")
|
|
|
|
|
|
|
|
(defvar lean-global-before-change-beg nil
|
|
|
|
"Before-change BEG")
|
|
|
|
(defvar lean-global-before-change-end nil
|
|
|
|
"Before-change END")
|
|
|
|
(defvar lean-global-before-change-beg-line-number nil
|
|
|
|
"Before-change BEG line-number")
|
|
|
|
(defvar lean-global-before-change-end-line-number nil
|
|
|
|
"Before-change END line-number")
|
|
|
|
(defvar lean-global-before-change-text ""
|
|
|
|
"Before-change text")
|
|
|
|
|
|
|
|
(provide 'lean-variable)
|