From 18a88d376220855c32f9c6c19fd731c98b841bec Mon Sep 17 00:00:00 2001 From: Richard Hansen Date: Wed, 22 Jun 2022 19:02:42 -0400 Subject: [PATCH 3/7] ; whitespace: Use `defvar-local' for buffer-local vars --- lisp/whitespace.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/whitespace.el b/lisp/whitespace.el index e598418709..e2285f7b82 100644 --- a/lisp/whitespace.el +++ b/lisp/whitespace.el @@ -1129,24 +1129,24 @@ whitespace-toggle-option-alist See `whitespace-style-value-list'.") -(defvar whitespace-active-style nil +(defvar-local whitespace-active-style nil "Used to save locally `whitespace-style' value.") -(defvar whitespace-point (point) +(defvar-local whitespace-point (point) "Used to save locally current point value. Used by function `whitespace-trailing-regexp' (which see).") (defvar-local whitespace-point--used nil "Region whose highlighting depends on `whitespace-point'.") -(defvar whitespace-bob-marker nil +(defvar-local whitespace-bob-marker nil "Used to save locally the bob marker value. Used by function `whitespace-post-command-hook' (which see).") -(defvar whitespace-eob-marker nil +(defvar-local whitespace-eob-marker nil "Used to save locally the eob marker value. Used by function `whitespace-post-command-hook' (which see).") -(defvar whitespace-buffer-changed nil +(defvar-local whitespace-buffer-changed nil "Used to indicate locally if buffer changed. Used by `whitespace-post-command-hook' and `whitespace-buffer-changed' functions (which see).") @@ -1766,7 +1766,7 @@ whitespace-report-region ;;;; Internal functions -(defvar whitespace-font-lock-keywords nil +(defvar-local whitespace-font-lock-keywords nil "Used to save the value `whitespace-color-on' adds to `font-lock-keywords'.") @@ -1993,10 +1993,10 @@ whitespace-toggle-list the-list) -(defvar whitespace-display-table nil +(defvar-local whitespace-display-table nil "Used to save a local display table.") -(defvar whitespace-display-table-was-local nil +(defvar-local whitespace-display-table-was-local nil "Used to remember whether a buffer initially had a local display table.") (defun whitespace-turn-on () -- 2.36.1