Thanks to Jan. This improves the useability changes somewhat.
andy
2000-02-27 Andy Piper <andy(a)xemacs.org>
* gutter-items.el (update-tab-hook): new function to be used for
hooks.
(create-frame-hook): add update-tab-hook.
(record-buffer-hook): ditto.
(default-gutter-position-changed): ditto.
(default-gutter-position): updating the buffers tab is now handled
by a hook.
(default-gutter-position-changed-hook): new variable.
(gutter-element-visibility-changed-hook): ditto.
(set-gutter-element-visible-p): call it.
(set-gutter-element): use modify-specifier-instances. Set extents
as duplicable before using.
(remove-gutter-element): ditto.
(set-gutter-element-visible-p): ditto.
(init-gutter): new function.
(add-tab-to-gutter): use new gutter-element functions rather than
setting specifiers directly.
(clear-progress): ditto.
(abort-progress): ditto.
(gutter-buffers-tab-visible-p): renamed from
default-gutter-visible-p
* specifier.el (modify-specifier-instances): new function from Jan
Vroonhof.
* x-init.el (init-post-x-win): call init-gutter.
* msw-init.el (init-post-mswindows-win): call init-gutter.
* menubar-items.el (default-menubar): Update to reflect new gutter
variables.
* gutter.c (Fset_default_gutter_position): don't default left and
right gutter visibility to t.
(Fset_default_gutter_position): run
default-gutter-position-changed-hook.
(syms_of_gutter): add default-gutter-position-changed-hook.
--------------------------------------------------------------
Dr Andy Piper
Senior Consultant Architect, BEA Systems Ltd