* make-mode-line-mouse-map change in GNU Emacs
@ 2001-08-15 16:59 Pavel Janík
2001-08-15 17:30 ` Simon Josefsson
0 siblings, 1 reply; 2+ messages in thread
From: Pavel Janík @ 2001-08-15 16:59 UTC (permalink / raw)
Hi,
please apply this patch to the current CVS. The function
make-mode-line-mouse2-map was renamed to make-mode-line-mouse-map with
additional parameter in Emacs CVS.
--- gnus-agent.el.~6.19.~ Wed Aug 1 08:17:21 2001
+++ gnus-agent.el Wed Aug 15 18:55:02 2001
@@ -310,11 +310,11 @@
["Add" gnus-agent-add-server t]
["Remove" gnus-agent-remove-server t]))))
-(defun gnus-agent-make-mode-line-string (string mouse2-func)
+(defun gnus-agent-make-mode-line-string (string mouse-button mouse-func)
(if (and (fboundp 'propertize)
- (fboundp 'make-mode-line-mouse2-map))
+ (fboundp 'make-mode-line-mouse-map))
(propertize string 'local-map
- (make-mode-line-mouse2-map mouse2-func))
+ (make-mode-line-mouse-map mouse-button mouse-func))
string))
(defun gnus-agent-toggle-plugged (plugged)
@@ -327,12 +327,14 @@
(gnus-run-hooks 'gnus-agent-plugged-hook)
(setcar (cdr gnus-agent-mode-status)
(gnus-agent-make-mode-line-string " Plugged"
+ 'mouse-2
'gnus-agent-toggle-plugged)))
(gnus-agent-close-connections)
(setq gnus-plugged plugged)
(gnus-run-hooks 'gnus-agent-unplugged-hook)
(setcar (cdr gnus-agent-mode-status)
(gnus-agent-make-mode-line-string " Unplugged"
+ 'mouse-2
'gnus-agent-toggle-plugged)))
(set-buffer-modified-p t))
--
Pavel Janík
This is a Linux company. On a quiet night, you can hear Windows reboot.
-- Dennis Olsson in private e-mail
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: make-mode-line-mouse-map change in GNU Emacs
2001-08-15 16:59 make-mode-line-mouse-map change in GNU Emacs Pavel Janík
@ 2001-08-15 17:30 ` Simon Josefsson
0 siblings, 0 replies; 2+ messages in thread
From: Simon Josefsson @ 2001-08-15 17:30 UTC (permalink / raw)
Cc: GNUS mailing list
Pavel@Janik.cz (Pavel Janík) writes:
> Hi,
>
> please apply this patch to the current CVS.
Done.
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2001-08-15 17:30 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2001-08-15 16:59 make-mode-line-mouse-map change in GNU Emacs Pavel Janík
2001-08-15 17:30 ` Simon Josefsson
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).