# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 742190679 0
# Node ID 26b434331fceed1c517ace59fff3425050efcf50
# Parent  e950abdc9ed2410615b57f43e5c0e5f807e39bae
(mouse-menu-bar-buffers):
Don't lose if all buffer names are short.

diff -r e950abdc9ed2 -r 26b434331fce lisp/menu-bar.el
--- a/lisp/menu-bar.el	Thu Jul 08 23:45:22 1993 +0000
+++ b/lisp/menu-bar.el	Fri Jul 09 04:04:39 1993 +0000
@@ -197,7 +197,7 @@
 				 (setq maxlen (length (car (car head))))))
 			  (setq tail (cdr tail)))
 			(nconc (reverse head)
-			       (list (cons (concat (make-string (- (/ maxlen 2) 8) ?\ )
+			       (list (cons (concat (make-string (max 0 (- (/ maxlen 2) 8)) ?\ )
 						   "List All Buffers")
 					   'list-buffers)))))))