[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: "Overwrite" toggle in the Edit menu
From: |
Kim F. Storm |
Subject: |
Re: "Overwrite" toggle in the Edit menu |
Date: |
12 Feb 2002 01:06:56 +0100 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.2.50 |
Richard Stallman <address@hidden> writes:
> I noticed this a week ago and started implementing a new feature
> to make it work reliably. It almost works, but has a strange bug:
> the mouse menu completely stopped working.
> Here are the changes. Can anyone debug this problem?
Could it be that in the new code below, mode-line-minor-mode-keymap
is used literally (as a symbol) rather than its value ?
> (setq-default mode-line-modes
> (list
> (propertize " %[(" 'help-echo help-echo)
> ! '(:propertize ("" mode-name mode-line-process minor-mode-alist)
> ! help-echo "mouse-3: minor mode menu"
> ! local-map mode-line-minor-mode-keymap)
> (propertize "%n" 'help-echo "mouse-2: widen"
> 'local-map (make-mode-line-mouse-map
> 'mouse-2 #'mode-line-widen))
In the old code, its value was used through this function:
> - (defun mode-line-mode-name () "\
> - Return a string to display in the mode line for the current mode name."
> - (when (stringp mode-name)
> - (if (equal mode-name mode-line-copied-mode-name)
> - mode-line-copied-mode-name
> - (setq mode-line-copied-mode-name
> - (propertize mode-name
> - 'local-map mode-line-minor-mode-keymap
> - 'help-echo "mouse-3: minor mode menu"))))
> - mode-line-copied-mode-name)
> -
Maybe something like this will work:
(setq-default mode-line-modes
(list
(propertize " %[(" 'help-echo help-echo)
`(:propertize ("" mode-name mode-line-process minor-mode-alist)
help-echo "mouse-3: minor mode menu"
local-map ,mode-line-minor-mode-keymap)
(propertize "%n" 'help-echo "mouse-2: widen"
'local-map (make-mode-line-mouse-map
'mouse-2 #'mode-line-widen))
--
Kim F. Storm <address@hidden> http://www.cua.dk
- "Overwrite" toggle in the Edit menu, Pavel Janík, 2002/02/09
- Re: "Overwrite" toggle in the Edit menu, Eli Zaretskii, 2002/02/09
- Re: "Overwrite" toggle in the Edit menu, Pavel Janík, 2002/02/10
- Re: "Overwrite" toggle in the Edit menu, Kim F. Storm, 2002/02/10
- Re: "Overwrite" toggle in the Edit menu, Andreas Schwab, 2002/02/10
- Re: "Overwrite" toggle in the Edit menu, Richard Stallman, 2002/02/11
- Re: "Overwrite" toggle in the Edit menu,
Kim F. Storm <=
- Re: "Overwrite" toggle in the Edit menu, Stefan Monnier, 2002/02/11
- Re: "Overwrite" toggle in the Edit menu, Richard Stallman, 2002/02/13
Re: "Overwrite" toggle in the Edit menu, Richard Stallman, 2002/02/10