(M-08735): Separate UU+382D; unify GT-11013.

[chise/xemacs-chise.git.1] / lisp / gutter-items.el

diff --git a/lisp/gutter-items.el b/lisp/gutter-items.el
index 1f7c373..c71a172 100644 (file)
--- a/lisp/gutter-items.el
+++ b/lisp/gutter-items.el
@@ -100,11 +100,15 @@ list).  Return non-nil if BUF1 should be added to the tab control."
 
 (defcustom buffers-tab-filter-functions '(select-buffers-tab-buffers-by-mode)
   "*A list of functions specifying buffers to display in the buffers tab.
 
 (defcustom buffers-tab-filter-functions '(select-buffers-tab-buffers-by-mode)
   "*A list of functions specifying buffers to display in the buffers tab.

-May be empty.  Each function in the list must take arguments (BUF1 BUF2).
+
+If nil, all buffers are kept, up to `buffers-tab-max-size', in usual order.
+Otherwise, each function in the list must take arguments (BUF1 BUF2).

 BUF1 is the candidate, and BUF2 is the current buffer (first in the buffers
 BUF1 is the candidate, and BUF2 is the current buffer (first in the buffers

-list).  Return non-nil if BUF1 should be added to the buffers tab.  The
-default adds BUF1 if BUF1 and BUF2 have the same major mode, or if both
-match `buffers-tab-grouping-regexp'."
+list).  The function should return non-nil if BUF1 should be added to the
+buffers tab.  BUF1 will be omitted if any of the functions returns nil.
+
+Defaults to `select-buffers-tab-buffers-by-mode', which adds BUF1 if BUF1 and
+BUF2 have the same major mode, or both match `buffers-tab-grouping-regexp'."

   :type '(repeat function)
   :group 'buffers-tab)
 
   :type '(repeat function)
   :group 'buffers-tab)
 

@@ -416,8 +420,8 @@ side-by-side."
     (setq progress-glyph-height 16)
     (setq progress-layout-instantiator
          `[layout
     (setq progress-glyph-height 16)
     (setq progress-layout-instantiator
          `[layout

-           :orientation horizontal
-           :margin-width 4
+           :orientation vertical :margin-width 4
+           :horizontally-justify left :vertically-justify center

            :items (,progress-gauge-instantiator
                    [button
                     :pixel-height (eval progress-glyph-height)
            :items (,progress-gauge-instantiator
                    [button
                     :pixel-height (eval progress-glyph-height)

@@ -430,8 +434,8 @@ side-by-side."
     (setq progress-glyph-height 24)
     (setq progress-layout-instantiator
          `[layout 
     (setq progress-glyph-height 24)
     (setq progress-layout-instantiator
          `[layout 

-           :orientation vertical :justify left
-           :margin-width 4
+           :orientation vertical :margin-width 4
+           :horizontally-justify left :vertically-justify center

            :items (,progress-text-instantiator
                    [layout 
                     :orientation horizontal
            :items (,progress-text-instantiator
                    [layout 
                     :orientation horizontal

@@ -448,7 +452,8 @@ side-by-side."
 
 (defun set-progress-abort-instantiator (&optional locale)
   (set-glyph-image progress-abort-glyph
 
 (defun set-progress-abort-instantiator (&optional locale)
   (set-glyph-image progress-abort-glyph

-                  `[layout :orientation vertical :justify left
+                  `[layout :orientation vertical
+                           :horizontally-justify left :vertically-justify center

                            :items (,progress-text-instantiator
                                    [layout
                                     :margin-width 4
                            :items (,progress-text-instantiator
                                    [layout
                                     :margin-width 4