diff options
| author | Luc Teirlinck | 2005-05-26 20:52:42 +0000 |
|---|---|---|
| committer | Luc Teirlinck | 2005-05-26 20:52:42 +0000 |
| commit | 27a0c0bc1b0b0dade4f80d40e216841ad2f907e7 (patch) | |
| tree | 6d308d6835ca710f0aff92c4f63e548202506b64 | |
| parent | a9dd908b16ab37812c703d447774fb90d65de706 (diff) | |
| download | emacs-27a0c0bc1b0b0dade4f80d40e216841ad2f907e7.tar.gz emacs-27a0c0bc1b0b0dade4f80d40e216841ad2f907e7.zip | |
(gnus-agent-make-mode-line-string):
Use mode-line-highlight as mouse-face.
| -rw-r--r-- | lisp/gnus/gnus-agent.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el index 4236c7958fb..ff09f3bcb19 100644 --- a/lisp/gnus/gnus-agent.el +++ b/lisp/gnus/gnus-agent.el | |||
| @@ -561,7 +561,8 @@ manipulated as follows: | |||
| 561 | (if (and (fboundp 'propertize) | 561 | (if (and (fboundp 'propertize) |
| 562 | (fboundp 'make-mode-line-mouse-map)) | 562 | (fboundp 'make-mode-line-mouse-map)) |
| 563 | (propertize string 'local-map | 563 | (propertize string 'local-map |
| 564 | (make-mode-line-mouse-map mouse-button mouse-func)) | 564 | (make-mode-line-mouse-map mouse-button mouse-func) |
| 565 | 'mouse-face 'mode-line-highlight) | ||
| 565 | string)) | 566 | string)) |
| 566 | 567 | ||
| 567 | (defun gnus-agent-toggle-plugged (set-to) | 568 | (defun gnus-agent-toggle-plugged (set-to) |