diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2021-04-21 20:54:12 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2021-04-21 21:38:40 +0200 |
| commit | 2b45bd368b4acbcef53c3c761725241fb6846102 (patch) | |
| tree | 21ea02e33460bc06613c931400ed38774097ec24 /elisp/geiser-repl.el | |
| parent | 803dfeb9414ed7b99c5d567170f32c97cafa1114 (diff) | |
| download | geiser-2b45bd368b4acbcef53c3c761725241fb6846102.tar.gz geiser-2b45bd368b4acbcef53c3c761725241fb6846102.tar.bz2 | |
Use defvar-local
It is available since Emacs 24.3 and we already depend on Emacs 24.4.
Diffstat (limited to 'elisp/geiser-repl.el')
| -rw-r--r-- | elisp/geiser-repl.el | 21 |
1 files changed, 7 insertions, 14 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 3311c77..73a2f39 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -267,11 +267,9 @@ module command as a string") (defvar geiser-repl--last-output-start nil) (defvar geiser-repl--last-output-end nil) -(make-variable-buffer-local - (defvar geiser-repl--repl nil)) +(defvar-local geiser-repl--repl nil) -(make-variable-buffer-local - (defvar geiser-repl--project nil)) +(defvar-local geiser-repl--project nil) (defsubst geiser-repl--set-this-buffer-repl (r) (setq geiser-repl--repl r)) @@ -383,11 +381,9 @@ module command as a string") ;;; REPL connections -(make-variable-buffer-local - (defvar geiser-repl--address nil)) +(defvar-local geiser-repl--address nil) -(make-variable-buffer-local - (defvar geiser-repl--connection nil)) +(defvar-local geiser-repl--connection nil) (defun geiser-repl--local-p () "Return non-nil, if current REPL is local (connected to socket)." @@ -942,8 +938,7 @@ over a Unix-domain socket." (expand-file-name (read-file-name "Socket file name: ")))) (geiser-repl--start-repl impl socket)) -(make-variable-buffer-local - (defvar geiser-repl--last-scm-buffer nil)) +(defvar-local geiser-repl--last-scm-buffer nil) (defun geiser-repl--maybe-remember-scm-buffer (buffer) (when (and buffer @@ -951,11 +946,9 @@ over a Unix-domain socket." (eq major-mode 'geiser-repl-mode)) (setq geiser-repl--last-scm-buffer buffer))) -(make-variable-buffer-local - (defvar geiser-repl--binary nil)) +(defvar-local geiser-repl--binary nil) -(make-variable-buffer-local - (defvar geiser-repl--arglist nil)) +(defvar-local geiser-repl--arglist nil) (defun geiser-repl--get-binary (impl) (or geiser-repl--binary (geiser-repl--binary impl))) |