Mercurial > hg > xemacs-beta

comparison lisp/gutter-items.el @ 452:3d3049ae1304 r21-2-41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-41
author cvs
date Mon, 13 Aug 2007 11:40:21 +0200
parents 1ccc32a20af4
children c33ae14dd6d0
comparison
equal deleted inserted replaced
451:8ad70c5cd5d7 452:3d3049ae1304
275 buffers)))) 275 buffers))))
276 ;; maybe shorten list of buffers 276 ;; maybe shorten list of buffers
277 (and (integerp buffers-tab-max-size) 277 (and (integerp buffers-tab-max-size)
278 (> buffers-tab-max-size 1) 278 (> buffers-tab-max-size 1)
279 (> (length buffers) buffers-tab-max-size) 279 (> (length buffers) buffers-tab-max-size)
280 (setcdr (nthcdr buffers-tab-max-size buffers) nil)) 280 (setcdr (nthcdr (1- buffers-tab-max-size) buffers) nil))
281 ;; sort buffers in group (default is most-recently-selected) 281 ;; sort buffers in group (default is most-recently-selected)
282 (when buffers-tab-sort-function 282 (when buffers-tab-sort-function
283 (setq buffers (funcall buffers-tab-sort-function buffers))) 283 (setq buffers (funcall buffers-tab-sort-function buffers)))
284 ;; convert list of buffers to list of structures used by tab widget 284 ;; convert list of buffers to list of structures used by tab widget
285 (setq buffers (build-buffers-tab-internal buffers)) 285 (setq buffers (build-buffers-tab-internal buffers))