(g2-UU+5B73): Add `=decomposition@hanyo-denshi'.

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

diff --git a/lisp/gutter-items.el b/lisp/gutter-items.el
index 1f7c373..8ac62f6 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.
-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
-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)
 
@@ -416,8 +420,8 @@ side-by-side."
     (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)
@@ -430,8 +434,8 @@ side-by-side."
     (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
@@ -448,7 +452,8 @@ side-by-side."
 
 (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
@@ -665,8 +670,10 @@ If the only argument is nil, clear any existing progress gauge."
 
 (defun progress-feedback-with-label (label fmt &optional value &rest args)
   "Print a progress gauge and message in the bottom gutter area of the frame.
-First argument LABEL is an identifier for this progress gauge.  The rest of the
-arguments are the same as to `format'."
+LABEL is an identifier for this progress gauge.
+FMT is a format string to be passed to `format' along with ARGS.
+Optional VALUE is the current degree of progress, an integer 0-100.
+The remaining ARGS are passed with FMT `(apply #'format FMT ARGS)'."
   ;; #### sometimes the buffer gets changed temporarily. I don't know
   ;; why this is, so protect against it.
   (save-excursion