diff options
| author | Lars Ingebrigtsen | 2016-02-13 16:42:40 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-02-13 16:42:40 +1100 |
| commit | c87f4a54742d86b34969b77756385d3c9abf8b2f (patch) | |
| tree | 51d61350dfd06f3580a59a8071ddc939ddd92223 | |
| parent | d88118db37dd543536677d7c4212a2c67621fb88 (diff) | |
| download | emacs-c87f4a54742d86b34969b77756385d3c9abf8b2f.tar.gz emacs-c87f4a54742d86b34969b77756385d3c9abf8b2f.zip | |
Remove compat code from gnus-agent.el
* lisp/gnus/gnus-agent.el (gnus-agent-make-mode-line-string):
Remove compat code.
| -rw-r--r-- | lisp/gnus/gnus-agent.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el index 11f93a29a1f..b35847bae6b 100644 --- a/lisp/gnus/gnus-agent.el +++ b/lisp/gnus/gnus-agent.el | |||
| @@ -547,12 +547,9 @@ manipulated as follows: | |||
| 547 | ["Remove" gnus-agent-remove-server t])))) | 547 | ["Remove" gnus-agent-remove-server t])))) |
| 548 | 548 | ||
| 549 | (defun gnus-agent-make-mode-line-string (string mouse-button mouse-func) | 549 | (defun gnus-agent-make-mode-line-string (string mouse-button mouse-func) |
| 550 | (if (and (fboundp 'propertize) | 550 | (propertize string 'local-map |
| 551 | (fboundp 'make-mode-line-mouse-map)) | 551 | (make-mode-line-mouse-map mouse-button mouse-func) |
| 552 | (propertize string 'local-map | 552 | 'mouse-face 'mode-line-highlight)) |
| 553 | (make-mode-line-mouse-map mouse-button mouse-func) | ||
| 554 | 'mouse-face 'mode-line-highlight) | ||
| 555 | string)) | ||
| 556 | 553 | ||
| 557 | (defun gnus-agent-toggle-plugged (set-to) | 554 | (defun gnus-agent-toggle-plugged (set-to) |
| 558 | "Toggle whether Gnus is unplugged or not." | 555 | "Toggle whether Gnus is unplugged or not." |