diff options
| -rw-r--r-- | nrepl-client.el | 29 | ||||
| -rw-r--r-- | nrepl-repl.el | 32 |
2 files changed, 32 insertions, 29 deletions
diff --git a/nrepl-client.el b/nrepl-client.el index ef851ad7..84a69e65 100644 --- a/nrepl-client.el +++ b/nrepl-client.el @@ -155,35 +155,14 @@ also include the connection port if `nrepl-buffer-name-show-port' is true." "Current nREPL tooling session id. To be used for tooling calls (i.e. completion, eldoc, etc)") -(defvar nrepl-input-start-mark) - -(defvar nrepl-prompt-start-mark) - (defvar nrepl-request-counter 0 "Continuation serial number counter.") -(defvar nrepl-old-input-counter 0 - "Counter used to generate unique `nrepl-old-input' properties. -This property value must be unique to avoid having adjacent inputs be -joined together.") - (defvar nrepl-requests (make-hash-table :test 'equal)) (defvar nrepl-buffer-ns "user" "Current Clojure namespace of this buffer.") -(defvar nrepl-input-history '() - "History list of strings read from the nREPL buffer.") - -(defvar nrepl-input-history-items-added 0 - "Variable counting the items added in the current session.") - -(defvar nrepl-output-start nil - "Marker for the start of output.") - -(defvar nrepl-output-end nil - "Marker for the end of output.") - (defvar nrepl-sync-response nil "Result of the last sync request.") @@ -240,17 +219,9 @@ The `nrepl-buffer-name-separator' separates `nrepl' from the project name." 'nrepl-ops 'nrepl-session 'nrepl-tooling-session - 'nrepl-input-start-mark - 'nrepl-prompt-start-mark 'nrepl-request-counter 'nrepl-requests - 'nrepl-old-input-counter 'nrepl-buffer-ns - 'nrepl-input-history - 'nrepl-input-history-items-added - 'nrepl-current-input-history-index - 'nrepl-output-start - 'nrepl-output-end 'nrepl-sync-response) ;;; Bencode diff --git a/nrepl-repl.el b/nrepl-repl.el index fc9b3985..460fc59a 100644 --- a/nrepl-repl.el +++ b/nrepl-repl.el @@ -87,6 +87,38 @@ you'd like to use the default Emacs behavior use :type 'symbol :group 'nrepl) + +;;;; REPL buffer local variables +(defvar nrepl-input-start-mark) + +(defvar nrepl-prompt-start-mark) + +(defvar nrepl-old-input-counter 0 + "Counter used to generate unique `nrepl-old-input' properties. +This property value must be unique to avoid having adjacent inputs be +joined together.") + +(defvar nrepl-input-history '() + "History list of strings read from the nREPL buffer.") + +(defvar nrepl-input-history-items-added 0 + "Variable counting the items added in the current session.") + +(defvar nrepl-output-start nil + "Marker for the start of output.") + +(defvar nrepl-output-end nil + "Marker for the end of output.") + +(nrepl-make-variables-buffer-local + 'nrepl-input-start-mark + 'nrepl-prompt-start-mark + 'nrepl-old-input-counter + 'nrepl-input-history + 'nrepl-input-history-items-added + 'nrepl-output-start + 'nrepl-output-end) + (defun nrepl-tab () "Invoked on TAB keystrokes in `nrepl-repl-mode' buffers." (interactive) |