Index: gutter-items.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/Attic/gutter-items.el,v
retrieving revision 1.1.2.25
diff -u -r1.1.2.25 gutter-items.el
--- gutter-items.el	2000/01/29 12:47:34	1.1.2.25
+++ gutter-items.el	2000/01/29 14:57:12
@@ -194,8 +194,12 @@
   (let ((len (specifier-instance buffers-tab-default-buffer-line-length)))
     (if (and (> len 0)
 	     (> (length (buffer-name buffer)) len))
-	(concat (substring (buffer-name buffer) 
-			   0 (- len 3)) "...")
+	(if (string-match ".*<.>$" (buffer-name buffer))
+	    (concat (substring (buffer-name buffer) 
+			       0 (- len 6)) "..."
+			       (substring (buffer-name buffer) -3))
+	  (concat (substring (buffer-name buffer)
+			     0 (- len 3)) "..."))
       (buffer-name buffer))))
 
 (defsubst build-buffers-tab-internal (buffers)