From ab42b8779929beeb7878c7fb3d3ccd80d9327c7f Mon Sep 17 00:00:00 2001 From: zsxh Date: Mon, 18 Mar 2019 10:42:47 +0800 Subject: [PATCH] Fix buffer-local variables definition Define focus-current-thing, focus-buffer, focus-pre-overlay, focus-post-overlay, focus-read-only-blink-timer as buffer-local variable --- focus.el | 18 +++++------------- 1 file changed, 5 insertions(+), 13 deletions(-) diff --git a/focus.el b/focus.el index 268ff06..82be9c9 100644 --- a/focus.el +++ b/focus.el @@ -73,31 +73,23 @@ Things that are defined include `symbol', `list', `sexp', (defvar focus-cursor-type cursor-type "Used to restore the users `cursor-type'") -(defvar focus-current-thing nil +(defvar-local focus-current-thing nil "Overrides the choice of thing dictated by `focus-mode-to-thing' if set.") -(defvar focus-buffer nil +(defvar-local focus-buffer nil "Local reference to the buffer focus functions operate on.") -(defvar focus-pre-overlay nil +(defvar-local focus-pre-overlay nil "The overlay that dims the text prior to the current-point.") -(defvar focus-post-overlay nil +(defvar-local focus-post-overlay nil "The overlay that dims the text past the current-point.") -(defvar focus-read-only-blink-timer nil +(defvar-local focus-read-only-blink-timer nil "Timer started from `focus-read-only-cursor-blink'. The timer calls `focus-read-only-hide-cursor' after `focus-read-only-blink-seconds' seconds.") -;; Use make-local-variable for backwards compatibility. -(dolist (var '(focus-current-thing - focus-buffer - focus-pre-overlay - focus-post-overlay - focus-read-only-blink-timer)) - (make-local-variable var)) - (defun focus-get-thing () "Return the current thing, based on `focus-mode-to-thing'." (or focus-current-thing