andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(gnus-group-set-mode-line):

Browse source 
Update how mode-line-modified is set.
This commit is contained in:
Richard M. Stallman 1997-07-03 19:07:26 +00:00
parent 421593b98d
commit 4d5b8182e9
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/gnus/gnus-group.el
View file

@ -1216,8 +1216,7 @@ already."
(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))))