X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fgutter-items.el;h=8ac62f6c26b51692ac63a5c5ac4e315fb898b0b8;hp=9feefa484140ad8080de60b41887ef2b3e03353c;hb=8ba3626da629f1b4ecafae24c85f3d0cb3bf8b8e;hpb=ac7d0619aad74b1d57c4748ebb3ab29d9c32e3d8 diff --git a/lisp/gutter-items.el b/lisp/gutter-items.el index 9feefa4..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) @@ -666,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