From b0b136970276c2988e5cd1c84911e966d68cce2f Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sat, 15 Jul 2023 15:05:15 +1000 Subject: Make `buildbot-host' and `buildbot-builders' buffer local. --- buildbot-client.el | 4 ++-- buildbot-view.el | 8 ++++++-- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/buildbot-client.el b/buildbot-client.el index ae6ff44..0d4cf41 100644 --- a/buildbot-client.el +++ b/buildbot-client.el @@ -27,8 +27,8 @@ (require 'buildbot-utils) (require 'cl-seq) -(defvar buildbot-host nil "Buildbot instance host.") -(defvar buildbot-builders nil +(defvar-local buildbot-host nil "Buildbot instance host.") +(defvar-local buildbot-builders nil "Buildbot builders. Can be generated with `(buildbot-get-all-builders)'.") diff --git a/buildbot-view.el b/buildbot-view.el index 7f463f4..a69b923 100644 --- a/buildbot-view.el +++ b/buildbot-view.el @@ -302,12 +302,16 @@ With a non-nil NO-BRANCH, do not show branch info." "Open a view of TYPE using DATA. With a non-nil FORCE, reload the view buffer if exists." - (let ((buffer-name (buildbot-view-buffer-name type data))) + (let ((buffer-name (buildbot-view-buffer-name type data)) + (host buildbot-host) + (builders buildbot-builders)) (when (or force (not (get-buffer buffer-name))) (with-current-buffer (get-buffer-create buffer-name) (buildbot-view-mode) (setq buildbot-view-type type - buildbot-view-data data) + buildbot-view-data data + buildbot-host host + buildbot-builders builders) (buildbot-view-update))) (switch-to-buffer buffer-name))) -- cgit v1.2.3