[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 2c754cf 6/8: Prefer defvar-local in mail/*.el
From: |
Stefan Kangas |
Subject: |
master 2c754cf 6/8: Prefer defvar-local in mail/*.el |
Date: |
Sun, 31 Jan 2021 15:02:51 -0500 (EST) |
branch: master
commit 2c754cf449e97203187556390d2c219a50f7c950
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Prefer defvar-local in mail/*.el
* lisp/mail/emacsbug.el (report-emacs-bug-send-command)
(report-emacs-bug-send-hook):
* lisp/mail/reporter.el (reporter-initial-text):
* lisp/mail/supercite.el (sc-mail-info, sc-attributions):
* lisp/mail/rmail.el (rmail-buffer-swapped, rmail-view-buffer):
Prefer defvar-local.
---
lisp/mail/emacsbug.el | 6 ++----
lisp/mail/reporter.el | 3 +--
lisp/mail/rmail.el | 6 ++----
lisp/mail/supercite.el | 7 ++-----
4 files changed, 7 insertions(+), 15 deletions(-)
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 4e8009d..815ff43 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -58,13 +58,11 @@
(defvar report-emacs-bug-orig-text nil
"The automatically-created initial text of the bug report.")
-(defvar report-emacs-bug-send-command nil
+(defvar-local report-emacs-bug-send-command nil
"Name of the command to send the bug report, as a string.")
-(make-variable-buffer-local 'report-emacs-bug-send-command)
-(defvar report-emacs-bug-send-hook nil
+(defvar-local report-emacs-bug-send-hook nil
"Hook run before sending the bug report.")
-(make-variable-buffer-local 'report-emacs-bug-send-hook)
(declare-function x-server-vendor "xfns.c" (&optional terminal))
(declare-function x-server-version "xfns.c" (&optional terminal))
diff --git a/lisp/mail/reporter.el b/lisp/mail/reporter.el
index 2e583a4..4b70582 100644
--- a/lisp/mail/reporter.el
+++ b/lisp/mail/reporter.el
@@ -100,9 +100,8 @@ This is necessary to properly support the printing of
buffer-local
variables. Current buffer will always be the mail buffer being
composed.")
-(defvar reporter-initial-text nil
+(defvar-local reporter-initial-text nil
"The automatically created initial text of a bug report.")
-(make-variable-buffer-local 'reporter-initial-text)
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 9f95b62..8ccf1bf 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -620,14 +620,12 @@ Element N specifies the summary line for message N+1.")
;; Rmail buffer swapping variables.
-(defvar rmail-buffer-swapped nil
+(defvar-local rmail-buffer-swapped nil
"If non-nil, `rmail-buffer' is swapped with `rmail-view-buffer'.")
-(make-variable-buffer-local 'rmail-buffer-swapped)
(put 'rmail-buffer-swapped 'permanent-local t)
-(defvar rmail-view-buffer nil
+(defvar-local rmail-view-buffer nil
"Buffer which holds RMAIL message for MIME displaying.")
-(make-variable-buffer-local 'rmail-view-buffer)
(put 'rmail-view-buffer 'permanent-local t)
;; `Sticky' default variables.
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el
index 5766c79..99ac41d 100644
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -509,9 +509,9 @@ string."
;; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
;; end user configuration variables
-(defvar sc-mail-info nil
+(defvar-local sc-mail-info nil
"Alist of mail header information gleaned from reply buffer.")
-(defvar sc-attributions nil
+(defvar-local sc-attributions nil
"Alist of attributions for use when citing.")
(defvar sc-tmp-nested-regexp nil
@@ -521,9 +521,6 @@ string."
(defvar sc-tmp-dumb-regexp nil
"Temp regexp describing non-nested citation cited with a nesting citer.")
-(make-variable-buffer-local 'sc-mail-info)
-(make-variable-buffer-local 'sc-attributions)
-
;; ======================================================================
;; supercite keymaps
- master updated (2c74924 -> cb72b83), Stefan Kangas, 2021/01/31
- master a5885d9 1/8: Prefer defvar-local in vc/*.el, Stefan Kangas, 2021/01/31
- master 834ba2b 3/8: Prefer defvar-local in cedet, Stefan Kangas, 2021/01/31
- master 2c754cf 6/8: Prefer defvar-local in mail/*.el,
Stefan Kangas <=
- master 21d9303 2/8: Prefer defvar-local in net/*.el, Stefan Kangas, 2021/01/31
- master 59e8c37 5/8: Prefer defvar-local in progmodes/*.el, Stefan Kangas, 2021/01/31
- master 458faaf 4/8: Prefer defvar-local in textmodes/*.el, Stefan Kangas, 2021/01/31
- master cb72b83 8/8: ; * lisp/double.el: Delete cruft dating back to 1994., Stefan Kangas, 2021/01/31
- master 58473dc 7/8: Prefer defvar-local in preloaded files, Stefan Kangas, 2021/01/31