emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/zuul cda2bc3a40 5/6: Use defconst and defvar-local in p


From: ELPA Syncer
Subject: [elpa] externals/zuul cda2bc3a40 5/6: Use defconst and defvar-local in private vars
Date: Tue, 30 Aug 2022 15:58:11 -0400 (EDT)

branch: externals/zuul
commit cda2bc3a409509033b536e856121e45a177914fc
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>

    Use defconst and defvar-local in private vars
---
 zuul.el | 31 +++++++++++--------------------
 1 file changed, 11 insertions(+), 20 deletions(-)

diff --git a/zuul.el b/zuul.el
index f536e93ee0..e6c5804ace 100644
--- a/zuul.el
+++ b/zuul.el
@@ -150,32 +150,23 @@ Each entry in the list is a property list with the 
following properties:
 
 ;;;;; Private
 
-(defvar zuul--response-buffer " *zuul-response*"
+(defconst zuul--response-buffer " *zuul-response*"
   "Name of the buffer which holds the response from Zuul.")
 
-(defvar zuul--build-playbook-id nil
-  "Identifier for playbook.")
-(defvar zuul--build-play-id nil
-  "Identifier for play.")
-(defvar zuul--build-task-id nil
-  "Identifier for task.")
-(defvar zuul--build-data nil
-  "Data of build.")
-
-(defvar zuul--builds nil)
-(defvar zuul--build nil)
-(defvar zuul--current-build nil
+(defvar zuul--build-playbook-id nil "Identifier for playbook.")
+(defvar zuul--build-play-id nil "Identifier for play.")
+(defvar zuul--build-task-id nil "Identifier for task.")
+(defvar zuul--build-data nil "Data of build.")
+(defvar zuul--builds nil "List of builds.")
+(defvar zuul--build nil "A build.")
+
+(defvar-local zuul--current-build nil
   "A buffer local variable of the current build.")
-(defvar zuul--current-builds nil
+(defvar-local zuul--current-builds nil
   "A buffer local variable of the current builds.")
-(defvar zuul--project-files nil
+(defvar-local zuul--project-files nil
   "A buffer local variable with all files in the current project.")
 
-(dolist (var '(zuul--current-build
-               zuul--current-builds
-               zuul--project-files))
-  (make-variable-buffer-local var))
-
 ;;;; Faces
 
 (defgroup zuul-faces nil



reply via email to

[Prev in Thread] Current Thread [Next in Thread]