X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgutter-items.el;h=b63504a6e4e04bd66abebb2911af4f883972efb2;hb=ab3c288904d247cd2b0bee8d803922b9a9f7ef7c;hp=fab1de4e2156a91c19abc248cf4024808702eb3b;hpb=82f6d62ee211b1d36e8f45fed3ee3edde82b6916;p=chise%2Fxemacs-chise.git

diff --git a/lisp/gutter-items.el b/lisp/gutter-items.el
index fab1de4..b63504a 100644
--- a/lisp/gutter-items.el
+++ b/lisp/gutter-items.el
@@ -277,7 +277,7 @@ redefining the function `format-buffers-menu-line'."
       (and (integerp buffers-tab-max-size)
 	   (> buffers-tab-max-size 1)
 	   (> (length buffers) buffers-tab-max-size)
-	   (setcdr (nthcdr buffers-tab-max-size buffers) nil))
+	   (setcdr (nthcdr (1- buffers-tab-max-size) buffers) nil))
       ;; sort buffers in group (default is most-recently-selected)
       (when buffers-tab-sort-function
 	(setq buffers (funcall buffers-tab-sort-function buffers)))