X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgutter-items.el;h=8ac62f6c26b51692ac63a5c5ac4e315fb898b0b8;hb=293bf3c60cd6af9d23cb86da2cdd94927517cea3;hp=1f7c373b7954549dda349c9c5837f988239f1e1e;hpb=dbf2768f7b146e97e37a27316f70bb313f1acf15;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/gutter-items.el b/lisp/gutter-items.el
index 1f7c373..8ac62f6 100644
--- 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