Mercurial > hg > xemacs-beta

comparison lisp/gutter-items.el @ 400:a86b2b5e0111 r21-2-30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-30
author cvs
date Mon, 13 Aug 2007 11:14:34 +0200
parents 74fd4e045ea6
children 2f8bb876ab1d
comparison
equal deleted inserted replaced
399:376370fb5946 400:a86b2b5e0111
158 158
159 (defun buffers-tab-switch-to-buffer (buffer) 159 (defun buffers-tab-switch-to-buffer (buffer)
160 "For use as a value for `buffers-tab-switch-to-buffer-function'." 160 "For use as a value for `buffers-tab-switch-to-buffer-function'."
161 (unless (eq (window-buffer) buffer) 161 (unless (eq (window-buffer) buffer)
162 (if (> (length (windows-of-buffer buffer)) 0) 162 (if (> (length (windows-of-buffer buffer)) 0)
163 (select-window (car (windows-of-buffer buffer))) 163 (select-window (car (windows-of-buffer buffer)) t)
164 (switch-to-buffer buffer t)))) 164 (switch-to-buffer buffer t))))
165 165
166 (defun select-buffers-tab-buffers-by-mode (buf1 buf2) 166 (defun select-buffers-tab-buffers-by-mode (buf1 buf2)
167 "For use as a value of `buffers-tab-selection-function'. 167 "For use as a value of `buffers-tab-selection-function'.
168 This selects buffers by major mode `buffers-tab-grouping-regexp'." 168 This selects buffers by major mode `buffers-tab-grouping-regexp'."