diff options
| author | Richard M. Stallman | 1997-07-03 19:07:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-07-03 19:07:26 +0000 |
| commit | 4d5b8182e9e2b640ea9795d1418b233db2907e11 (patch) | |
| tree | 72c143c0f6e20ce74a236cc4fb8a3d8020a81f1e | |
| parent | 421593b98d080e9b55f22d3538f0915e295bad58 (diff) | |
| download | emacs-4d5b8182e9e2b640ea9795d1418b233db2907e11.tar.gz emacs-4d5b8182e9e2b640ea9795d1418b233db2907e11.zip | |
(gnus-group-set-mode-line):
Update how mode-line-modified is set.
| -rw-r--r-- | lisp/gnus/gnus-group.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 32b596689de..979f3c5164f 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el | |||
| @@ -1216,8 +1216,7 @@ already." | |||
| 1216 | (not (zerop (buffer-size)))))) | 1216 | (not (zerop (buffer-size)))))) |
| 1217 | (mode-string (eval gformat))) | 1217 | (mode-string (eval gformat))) |
| 1218 | ;; Say whether the dribble buffer has been modified. | 1218 | ;; Say whether the dribble buffer has been modified. |
| 1219 | (setq mode-line-modified | 1219 | (setq mode-line-modified (if modified "**" "--")) |
| 1220 | (if modified "--**- " "----- ")) | ||
| 1221 | ;; If the line is too long, we chop it off. | 1220 | ;; If the line is too long, we chop it off. |
| 1222 | (when (> (length mode-string) max-len) | 1221 | (when (> (length mode-string) max-len) |
| 1223 | (setq mode-string (substring mode-string 0 (- max-len 4)))) | 1222 | (setq mode-string (substring mode-string 0 (- max-len 4)))) |