mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Prefer defvar-local in mail/*.el

Browse Source 
* 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.
This commit is contained in:
Stefan Kangas 2021-01-31 19:28:22 +01:00
parent 59e8c37d61
commit 2c754cf449
4 changed files with 7 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/mail/emacsbug.el
View File

@ -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))

3
lisp/mail/reporter.el
View File

@ -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)

6
lisp/mail/rmail.el
View File

@ -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.

7
lisp/mail/supercite.el
View File

@ -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