Mercurial > emacs
changeset 18575:c87b0767a179
(gnus-group-set-mode-line):
Update how mode-line-modified is set.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 03 Jul 1997 19:07:26 +0000 |
| parents | 19f99191b11d |
| children | ff3876f9e299 |
| files | lisp/gnus/gnus-group.el |
| diffstat | 1 files changed, 1 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/gnus-group.el Thu Jul 03 07:21:22 1997 +0000 +++ b/lisp/gnus/gnus-group.el Thu Jul 03 19:07:26 1997 +0000 @@ -1216,8 +1216,7 @@ (not (zerop (buffer-size)))))) (mode-string (eval gformat))) ;; Say whether the dribble buffer has been modified. - (setq mode-line-modified - (if modified "--**- " "----- ")) + (setq mode-line-modified (if modified "**" "--")) ;; If the line is too long, we chop it off. (when (> (length mode-string) max-len) (setq mode-string (substring mode-string 0 (- max-len 4))))