(mouse-menu-bar-buffers): Include % and * in each item.

Calculate amount of space needed for longest buffer name.

1 files changed, 14 insertions, 1 deletions

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 0f174f1fab9..67df0d26185 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -160,17 +160,30 @@ and selects that window."
           (list "Buffer Menu"
                 (cons "Select Buffer"
                       (let ((tail buffers)
+                            (maxbuf 0)
                             (maxlen 0)
                             head)
                         (while tail
+                          (or (eq ?\ (aref (buffer-name (car tail)) 0))
+                              (setq maxbuf
+                                    (max maxbuf
+                                         (length (buffer-name (car tail))))))
+                          (setq tail (cdr tail)))
+                        (setq tail buffers)
+                        (while tail
                           (let ((elt (car tail)))
                             (if (not (string-match "^ "
                                                    (buffer-name elt)))
                                 (setq head (cons
                                             (cons
                                              (format
-                                              "%14s   %s"
+                                              (format "%%%ds  %%s%%s  %%s"
+                                                      maxbuf)
                                               (buffer-name elt)
+                                              (if (buffer-modified-p elt) "*" " ")
+                                              (save-excursion
+                                                (set-buffer elt)
+                                                (if buffer-read-only "%" " "))
                                               (or (buffer-file-name elt) ""))
                                              elt)
                                             head)))