From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Luc Teirlinck Newsgroups: gmane.emacs.devel Subject: Re: mouse-face on mode-line and header-line Date: Mon, 23 May 2005 16:37:58 -0500 (CDT) Message-ID: <200505232137.j4NLbwu12477@raven.dms.auburn.edu> References: <20050513.230546.243438712.jet@gyve.org> <20050522.113905.183047209.jet@gyve.org> <20050523.202614.220553728.jet@gyve.org> NNTP-Posting-Host: main.gmane.org X-Trace: sea.gmane.org 1116884496 32276 80.91.229.2 (23 May 2005 21:41:36 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 23 May 2005 21:41:36 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon May 23 23:41:28 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1DaKe5-0007zX-9u for ged-emacs-devel@m.gmane.org; Mon, 23 May 2005 23:39:34 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DaKhc-0003x3-21 for ged-emacs-devel@m.gmane.org; Mon, 23 May 2005 17:43:12 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1DaKgt-0003gg-BQ for emacs-devel@gnu.org; Mon, 23 May 2005 17:42:27 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1DaKgr-0003fO-IC for emacs-devel@gnu.org; Mon, 23 May 2005 17:42:25 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DaKgr-0003db-34 for emacs-devel@gnu.org; Mon, 23 May 2005 17:42:25 -0400 Original-Received: from [131.204.53.104] (helo=manatee.dms.auburn.edu) by monty-python.gnu.org with esmtp (Exim 4.34) id 1DaKco-0001vK-V8 for emacs-devel@gnu.org; Mon, 23 May 2005 17:38:15 -0400 Original-Received: from raven.dms.auburn.edu (raven.dms.auburn.edu [131.204.53.29]) by manatee.dms.auburn.edu (8.12.10/8.12.10) with ESMTP id j4NLcBCK028125; Mon, 23 May 2005 16:38:11 -0500 (CDT) Original-Received: (from teirllm@localhost) by raven.dms.auburn.edu (8.11.7p1+Sun/8.11.7) id j4NLbwu12477; Mon, 23 May 2005 16:37:58 -0500 (CDT) X-Authentication-Warning: raven.dms.auburn.edu: teirllm set sender to teirllm@dms.auburn.edu using -f Original-To: jet@gyve.org In-reply-to: <20050523.202614.220553728.jet@gyve.org> (message from Masatake YAMATO on Mon, 23 May 2005 20:26:14 +0900 (JST)) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:37523 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:37523 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 "\\\\[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-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-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-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 "\\\\[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) ============================================================