--- gutter-items.el~	Fri Jan 28 12:30:48 2000
+++ gutter-items.el	Sat Jan 29 12:33:58 2000
@@ -30,6 +30,11 @@
   "Input from the gutters."
   :group 'environment)
 
+(defvar gutter-buffers-tab nil
+  "A tab widget in the gutter for displaying buffers.
+Do not set this. Use `glyph-image-instance' and
+`set-image-instance-property' to change the properties of the tab.")
+
 (defcustom gutter-visible-p 
   (specifier-instance default-gutter-visible-p)
   "Whether the default gutter is globally visible. This option can be
@@ -38,12 +43,8 @@
   :type 'boolean
   :set #'(lambda (var val)
 	   (set-specifier default-gutter-visible-p val)
-	   (setq gutter-visible-p val)))
-
-(defvar gutter-buffers-tab nil
-  "A tab widget in the gutter for displaying buffers.
-Do not set this. Use `glyph-image-instance' and
-`set-image-instance-property' to change the properties of the tab.")
+	   (setq gutter-visible-p val)
+	   (when gutter-buffers-tab (update-tab-in-gutter))))
 
 (defcustom default-gutter-position
   (default-gutter-position)