diff options
| author | Bozhidar Batsov <bozhidar@tradeo.com> | 2013-10-15 18:05:00 +0300 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar@tradeo.com> | 2013-10-15 18:05:00 +0300 |
| commit | 4d61450056f730eaf29f7f67c94314b4dd1d9fb3 (patch) | |
| tree | fc8fcbd6a05dd6029332c3aaab213e4af0422623 /nrepl-repl.el | |
| parent | b11660cb3331fd0bd8bcf175a1d8b7cf5b4cffc0 (diff) | |
Extract REPL buffer-local variables
Diffstat (limited to 'nrepl-repl.el')
| -rw-r--r-- | nrepl-repl.el | 32 |
1 files changed, 32 insertions, 0 deletions
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) |