Mercurial > emacs
comparison lisp/gnus.el @ 13699:e8358f30c41c
(gnus-group-set-mode-line): Allow user defined specs in the group
format mode line.
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> |
|---|---|
| date | Fri, 08 Dec 1995 05:11:19 +0000 |
| parents | 73433c3071a5 |
| children | 7cbb1453aefd |
comparison
equal
deleted
inserted
replaced
| 13698:a5b05f960c30 | 13699:e8358f30c41c |
|---|---|
| 3785 gnus-group-mode-line-format | 3785 gnus-group-mode-line-format |
| 3786 gnus-group-mode-line-format-alist)))) | 3786 gnus-group-mode-line-format-alist)))) |
| 3787 (news-server (car (cdr gnus-select-method))) | 3787 (news-server (car (cdr gnus-select-method))) |
| 3788 (news-method (car gnus-select-method)) | 3788 (news-method (car gnus-select-method)) |
| 3789 (max-len 60) | 3789 (max-len 60) |
| 3790 header ;Dummy binding for user-defined specs. | |
| 3790 (mode-string (eval gformat))) | 3791 (mode-string (eval gformat))) |
| 3791 (setq mode-string (eval gformat)) | 3792 (setq mode-string (eval gformat)) |
| 3792 (if (> (length mode-string) max-len) | 3793 (if (> (length mode-string) max-len) |
| 3793 (setq mode-string (substring mode-string 0 (- max-len 4)))) | 3794 (setq mode-string (substring mode-string 0 (- max-len 4)))) |
| 3794 (setq mode-line-buffer-identification mode-string) | 3795 (setq mode-line-buffer-identification mode-string) |