From 2b45bd368b4acbcef53c3c761725241fb6846102 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Wed, 21 Apr 2021 20:54:12 +0200 Subject: Use defvar-local It is available since Emacs 24.3 and we already depend on Emacs 24.4. --- elisp/geiser-impl.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'elisp/geiser-impl.el') diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el index b67c6bf..c1dc065 100644 --- a/elisp/geiser-impl.el +++ b/elisp/geiser-impl.el @@ -57,8 +57,7 @@ in order to determine its scheme flavour." (geiser-custom--memoize 'geiser-impl--load-files) -(make-variable-buffer-local - (defvar geiser-impl--implementation nil)) +(defvar-local geiser-impl--implementation nil) (defsubst geiser-impl--impl-str (&optional impl) (let ((impl (or impl geiser-impl--implementation))) @@ -246,10 +245,9 @@ switcher (switch-to-NAME), and provides geiser-NAME." ;;; Trying to guess the scheme implementation: -(make-variable-buffer-local - (defvar geiser-scheme-implementation nil - "Set this buffer local variable to specify the Scheme -implementation to be used by Geiser.")) +(defvar-local geiser-scheme-implementation nil + "Set this buffer local variable to specify the Scheme +implementation to be used by Geiser.") (put 'geiser-scheme-implementation 'safe-local-variable 'symbolp) -- cgit v1.2.3