diff options
| author | Richard M. Stallman | 1993-07-09 04:04:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-09 04:04:39 +0000 |
| commit | 07a9765faacac296d46d89f264a6cca21fbe5fb5 (patch) | |
| tree | 05d7729dd66e021ce4813947717d54b2e789dabb | |
| parent | 646d9d18ccbf300bc9ac72604cbd2a925551d8af (diff) | |
| download | emacs-07a9765faacac296d46d89f264a6cca21fbe5fb5.tar.gz emacs-07a9765faacac296d46d89f264a6cca21fbe5fb5.zip | |
(mouse-menu-bar-buffers):
Don't lose if all buffer names are short.
| -rw-r--r-- | lisp/menu-bar.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 5da62849bc2..c4a2ea013b8 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -197,7 +197,7 @@ and selects that window." | |||
| 197 | (setq maxlen (length (car (car head)))))) | 197 | (setq maxlen (length (car (car head)))))) |
| 198 | (setq tail (cdr tail))) | 198 | (setq tail (cdr tail))) |
| 199 | (nconc (reverse head) | 199 | (nconc (reverse head) |
| 200 | (list (cons (concat (make-string (- (/ maxlen 2) 8) ?\ ) | 200 | (list (cons (concat (make-string (max 0 (- (/ maxlen 2) 8)) ?\ ) |
| 201 | "List All Buffers") | 201 | "List All Buffers") |
| 202 | 'list-buffers))))))) | 202 | 'list-buffers))))))) |
| 203 | 203 | ||