From: Luc Teirlinck <teirllm@dms.auburn.edu>
Cc: emacs-devel@gnu.org
Subject: Re: mouse-face on mode-line and header-line
Date: Mon, 23 May 2005 16:37:58 -0500 (CDT) [thread overview]
Message-ID: <200505232137.j4NLbwu12477@raven.dms.auburn.edu> (raw)
In-Reply-To: <20050523.202614.220553728.jet@gyve.org> (message from Masatake YAMATO on Mon, 23 May 2005 20:26:14 +0900 (JST))
For consistency should not also the following changes be made? I can
install them, if desired. They are the result of grepping for
make-mode-line-mouse-map in the Lisp directory.
I guess that changes to gnus should also work for older Emacs versions
and for XEmacs. But before your changes were mouse-face properties
not simply ignored in the mode line? In that case, there should not
be any incompatibility problems.
===File ~/gnus-agent-diff===================================
*** gnus-agent.el 10 Apr 2005 07:29:46 -0500 1.15
--- gnus-agent.el 23 May 2005 15:43:09 -0500
***************
*** 561,567 ****
(if (and (fboundp 'propertize)
(fboundp 'make-mode-line-mouse-map))
(propertize string 'local-map
! (make-mode-line-mouse-map mouse-button mouse-func))
string))
(defun gnus-agent-toggle-plugged (set-to)
--- 561,568 ----
(if (and (fboundp 'propertize)
(fboundp 'make-mode-line-mouse-map))
(propertize string 'local-map
! (make-mode-line-mouse-map mouse-button mouse-func)
! 'mouse-face 'mode-line-highlight)
string))
(defun gnus-agent-toggle-plugged (set-to)
============================================================
===File ~/calendar-diff=====================================
*** calendar.el 16 May 2005 08:33:15 -0500 1.169
--- calendar.el 23 May 2005 15:46:59 -0500
***************
*** 2335,2340 ****
--- 2335,2341 ----
(propertize (substitute-command-keys
"\\<calendar-mode-map>\\[scroll-calendar-left]")
'help-echo "mouse-2: scroll left"
+ 'mouse-face 'mode-line-highlight
'keymap (make-mode-line-mouse-map 'mouse-2
'mouse-scroll-calendar-left))
"Calendar"
***************
*** 2343,2354 ****
--- 2344,2357 ----
(substitute-command-keys
"\\<calendar-mode-map>\\[calendar-goto-info-node] info")
'help-echo "mouse-2: read Info on Calendar"
+ 'mouse-face 'mode-line-highlight
'keymap (make-mode-line-mouse-map 'mouse-2 'calendar-goto-info-node))
"/"
(propertize
(substitute-command-keys
"\\<calendar-mode-map>\\[calendar-other-month] other")
'help-echo "mouse-2: choose another month"
+ 'mouse-face 'mode-line-highlight
'keymap (make-mode-line-mouse-map
'mouse-2 'mouse-calendar-other-month))
"/"
***************
*** 2356,2366 ****
--- 2359,2371 ----
(substitute-command-keys
"\\<calendar-mode-map>\\[calendar-goto-today] today")
'help-echo "mouse-2: go to today's date"
+ 'mouse-face 'mode-line-highlight
'keymap (make-mode-line-mouse-map 'mouse-2 #'calendar-goto-today)))
'(calendar-date-string (calendar-current-date) t)
(propertize (substitute-command-keys
"\\<calendar-mode-map>\\[scroll-calendar-right]")
'help-echo "mouse-2: scroll right"
+ 'mouse-face 'mode-line-highlight
'keymap (make-mode-line-mouse-map
'mouse-2 'mouse-scroll-calendar-right)))
"The mode line of the calendar buffer.
============================================================
===File ~/time-diff=========================================
*** time.el 16 May 2005 08:32:48 -0500 1.83
--- time.el 23 May 2005 15:34:55 -0500
***************
*** 200,205 ****
--- 200,206 ----
(list :background bg)))))
'face display-time-mail-face
'help-echo "You have new mail; mouse-2: Read mail"
+ 'mouse-face 'mode-line-highlight
'local-map (make-mode-line-mouse-map 'mouse-2
read-mail-command)))
""))
***************
*** 293,298 ****
--- 294,300 ----
(concat (substring str 0 -2) "." (substring str -2))
'local-map (make-mode-line-mouse-map
'mouse-2 'display-time-next-load-average)
+ 'mouse-face 'mode-line-highlight
'help-echo (concat
"System load average for past "
(if (= 0 display-time-load-average)
============================================================
next prev parent reply other threads:[~2005-05-23 21:37 UTC|newest]
Thread overview: 32+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-05-13 14:05 mouse-face on mode-line and header-line Masatake YAMATO
2005-05-13 15:45 ` Stefan Monnier
2005-05-22 2:39 ` Masatake YAMATO
2005-05-23 11:26 ` Masatake YAMATO
2005-05-23 16:26 ` Luc Teirlinck
2005-05-23 18:38 ` Masatake YAMATO
2005-05-23 21:37 ` Luc Teirlinck [this message]
2005-05-25 2:02 ` Luc Teirlinck
2005-05-24 10:26 ` Richard Stallman
2005-05-27 14:36 ` Juri Linkov
2005-05-27 14:54 ` Luc Teirlinck
2005-05-27 15:06 ` Masatake YAMATO
2005-05-27 15:59 ` Juri Linkov
2005-05-27 16:23 ` Masatake YAMATO
2005-05-23 21:25 ` Nick Roberts
2005-05-23 21:54 ` Juanma Barranquero
2005-05-24 4:41 ` Masatake YAMATO
2005-05-24 5:39 ` Nick Roberts
2005-05-24 5:47 ` Masatake YAMATO
2005-05-24 16:23 ` Luc Teirlinck
2005-05-24 16:57 ` Masatake YAMATO
2005-05-24 17:32 ` Luc Teirlinck
2005-05-24 7:08 ` Juanma Barranquero
2005-05-24 10:27 ` Richard Stallman
2005-05-24 10:30 ` Juanma Barranquero
2005-05-27 14:14 ` Kim F. Storm
2005-05-27 17:01 ` Masatake YAMATO
2005-05-27 21:39 ` Nick Roberts
2005-05-27 22:01 ` Luc Teirlinck
2005-05-28 2:40 ` Masatake YAMATO
2005-05-27 17:37 ` Ralf Angeli
2005-05-30 17:20 ` Masatake YAMATO
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=200505232137.j4NLbwu12477@raven.dms.auburn.edu \
--to=teirllm@dms.auburn.edu \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.