From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: jpw@pobox.com (John Paul Wallington) Newsgroups: gmane.emacs.devel Subject: binding `display-time' modeline clickies to mouse-1 Date: Sun, 08 Jun 2008 05:14:08 +0100 Message-ID: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1212898477 11887 80.91.229.12 (8 Jun 2008 04:14:37 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 8 Jun 2008 04:14:37 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sun Jun 08 06:15:20 2008 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1K5CJL-0007kV-2a for ged-emacs-devel@m.gmane.org; Sun, 08 Jun 2008 06:15:19 +0200 Original-Received: from localhost ([127.0.0.1]:51189 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1K5CIX-0002wV-O6 for ged-emacs-devel@m.gmane.org; Sun, 08 Jun 2008 00:14:29 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1K5CIU-0002vz-4z for emacs-devel@gnu.org; Sun, 08 Jun 2008 00:14:26 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1K5CIS-0002vn-Kf for emacs-devel@gnu.org; Sun, 08 Jun 2008 00:14:24 -0400 Original-Received: from [199.232.76.173] (port=59203 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1K5CIS-0002vk-FG for emacs-devel@gnu.org; Sun, 08 Jun 2008 00:14:24 -0400 Original-Received: from a-sasl-quonix.sasl.smtp.pobox.com ([208.72.237.25]:41611 helo=sasl.smtp.pobox.com) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1K5CIS-0008NT-Dy for emacs-devel@gnu.org; Sun, 08 Jun 2008 00:14:24 -0400 Original-Received: from localhost.localdomain (localhost [127.0.0.1]) by a-sasl-quonix.sasl.smtp.pobox.com (Postfix) with ESMTP id BE7173881 for ; Sun, 8 Jun 2008 00:14:23 -0400 (EDT) Original-Received: from mini.local (host81-158-23-41.range81-158.btcentralplus.com [81.158.23.41]) by a-sasl-quonix.sasl.smtp.pobox.com (Postfix) with ESMTPA id E7FC33880 for ; Sun, 8 Jun 2008 00:14:20 -0400 (EDT) X-URL: http://www.shootybangbang.com/ X-Attribution: JPW X-NSA-Fodder: industrial intelligence assassination kilo class Hamas Elvis X-Face: #uahb@^mo@bA"{q'"a4y[w$n3/V:haD\; YenWcT7)kXYx3/>#[DD9ExVe}; 9FG6X`l!Dm"V peub=u!&&?}s~{TOPtGdH)KA}/qCr; d"Gr*'9_V1PE@+K'tk2/Iq@PBKtJ+]&,CP9_Fl8'*R]LCR0| 6q; Xey'`:DX+)S.]p[KP^sNe`8B\W6(Nw{o5i)y+I!h=0bU5L`Tj`~Q0!G"t(s7o7eh)J\>P>,!~/w $$jGEVa%H%8(jTv User-Agent: Microsoft Gnus Express, Build 513.230 X-Pobox-Relay-ID: 604BEBA2-3511-11DD-A184-B8BFEAD4C077-02562057!a-sasl-quonix.pobox.com X-detected-kernel: by monty-python.gnu.org: Solaris 10 (beta) 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:98665 Archived-At: Given that most modeline clickies are bound to mouse-1 and we now live in a `mouse-1-click-follows-link' Emacs world, any objections to this change? 2008-06-08 John Paul Wallington * time.el (display-time-string-forms): Use `mouse-1' to read mail. (display-time-update): Use `mouse-1' to cycle load average display. --- time.el.~1.110.~ 2008-05-10 16:50:54.000000000 +0100 +++ time.el 2008-06-08 05:04:32.000000000 +0100 @@ -289,9 +289,9 @@ (if (stringp bg) (list :background bg))))) 'face display-time-mail-face - 'help-echo "You have new mail; mouse-2: Read mail" + 'help-echo "You have new mail; mouse-1: Read mail" 'mouse-face 'mode-line-highlight - 'local-map (make-mode-line-mouse-map 'mouse-2 + 'local-map (make-mode-line-mouse-map 'mouse-1 read-mail-command))) "")) "*List of expressions governing display of the time in the mode line. @@ -383,7 +383,7 @@ (propertize (concat (substring str 0 -2) "." (substring str -2)) 'local-map (make-mode-line-mouse-map - 'mouse-2 'display-time-next-load-average) + 'mouse-1 'display-time-next-load-average) 'mouse-face 'mode-line-highlight 'help-echo (concat "System load average for past " @@ -392,7 +392,7 @@ (if (= 1 display-time-load-average) "5 minutes" "15 minutes")) - "; mouse-2: next")))) + "; mouse-1: next")))) (error "")))) (mail-spool-file (or display-time-mail-file (getenv "MAIL")