From: storm@cua.dk (Kim F. Storm)
Cc: Kai Grossjohann <kai@emptydomain.de>, emacs-devel@gnu.org
Subject: Re: finger-pointer curser as default for mouse-face text
Date: Wed, 27 Oct 2004 14:32:32 +0200 [thread overview]
Message-ID: <m31xfkmjdr.fsf@kfs-l.imdomain.dk> (raw)
In-Reply-To: <x51xfk62c2.fsf@lola.goethe.zz> (David Kastrup's message of "Wed, 27 Oct 2004 09:35:09 +0200")
David Kastrup <dak@gnu.org> writes:
> I think that nobody will complain if a double click on a link will
> cause it to execute instead of marking a word or line. It is indeed
> rare that you need to mark a work from inside a link; and if you do,
> you can do it by normal dragging marking without much additional
> hassle.
It was a little more complex to implement than the previous methods,
but here is a patch which adds 'double click' support as a user option:
Index: mouse.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mouse.el,v
retrieving revision 1.251
diff -c -r1.251 mouse.el
*** mouse.el 18 Oct 2004 09:29:26 -0000 1.251
--- mouse.el 27 Oct 2004 12:29:31 -0000
***************
*** 48,53 ****
--- 48,77 ----
:type 'boolean
:group 'mouse)
+ (defcustom mouse-1-click-follows-link 'double
+ "Non-nil means that clicking mouse-1 on a link follows the link.
+ This is only done for links which have the mouse-face property.
+
+ If value is the symbol double, a double click follows the link.
+
+ If value is an integer, the time between pressing and releasing
+ the mouse button determines whether to follow the link or perform
+ the normal mouse-1 action (typically set point). The absolute
+ numeric value specifices the maximum duration of a \"short click\"
+ in milli-seconds. A positive value means that a short click
+ follows the link, and a longer click performs the normal action.
+ A negative value specifies the opposite behaviour.
+
+ Otherwise, a single mouse-1 click unconditionally follows the link.
+
+ Note that dragging the mouse never follows the link."
+ :version "21.4"
+ :type '(choice (const :tag "Disabled" nil)
+ (const :tag "Double click" double)
+ (number :tag "Single click time limit" :value 300)
+ (other :tag "Single click" t))
+ :group 'mouse)
+
\f
;; Provide a mode-specific menu on a mouse button.
***************
*** 731,736 ****
--- 755,764 ----
(run-hooks 'mouse-leave-buffer-hook)
(mouse-drag-region-1 start-event))))
+ (defun mouse-on-link-p (pos)
+ (and (get-char-property pos 'mouse-face)
+ (not (get-char-property pos 'dont-follow-link))))
+
(defun mouse-drag-region-1 (start-event)
(mouse-minibuffer-check start-event)
(let* ((echo-keystrokes 0)
***************
*** 746,751 ****
--- 774,780 ----
(nth 3 bounds)
;; Don't count the mode line.
(1- (nth 3 bounds))))
+ on-link remap-double-click
(click-count (1- (event-click-count start-event))))
(setq mouse-selection-click-count click-count)
(setq mouse-selection-click-count-buffer (current-buffer))
***************
*** 755,760 ****
--- 784,796 ----
(if (< (point) start-point)
(goto-char start-point))
(setq start-point (point))
+ (setq on-link (and mouse-1-click-follows-link
+ (mouse-on-link-p start-point)))
+ (setq remap-double-click (and on-link
+ (eq mouse-1-click-follows-link 'double)
+ (= click-count 1)))
+ (if remap-double-click ;; Don't expand mouse overlay in links
+ (setq click-count 0))
(let ((range (mouse-start-end start-point start-point click-count)))
(move-overlay mouse-drag-overlay (car range) (nth 1 range)
(window-buffer start-window))
***************
*** 877,882 ****
--- 913,938 ----
(or end-point
(= (window-start start-window)
start-window-start)))
+ (if (and on-link
+ (not end-point)
+ (consp event)
+ (or remap-double-click
+ (and
+ (not (eq mouse-1-click-follows-link 'double))
+ (= click-count 0)
+ (= (event-click-count event) 1)
+ (not (input-pending-p))
+ (or (not (integerp mouse-1-click-follows-link))
+ (let ((t0 (posn-timestamp (event-start start-event)))
+ (t1 (posn-timestamp (event-end event))))
+ (and (integerp t0) (integerp t1)
+ (if (> mouse-1-click-follows-link 0)
+ (<= (- t1 t0) mouse-1-click-follows-link)
+ (< (- t0 t1) mouse-1-click-follows-link)))))
+ (or (not double-click-time)
+ (sit-for 0 (if (integerp double-click-time)
+ double-click-time 500) t)))))
+ (setcar event 'mouse-2))
(setq unread-command-events
(cons event unread-command-events)))))
(delete-overlay mouse-drag-overlay)))))
--
Kim F. Storm <storm@cua.dk> http://www.cua.dk
next prev parent reply other threads:[~2004-10-27 12:32 UTC|newest]
Thread overview: 91+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <DNEMKBNJBGPAOPIJOOICAEKKCAAA.drew.adams@oracle.com>
2004-10-19 9:04 ` finger-pointer curser as default for mouse-face text Kim F. Storm
2004-10-19 15:31 ` Lennart Borgman
2004-10-19 16:12 ` Drew Adams
2004-10-21 13:56 ` Richard Stallman
2004-10-21 14:47 ` Kim F. Storm
2004-10-21 16:03 ` Lennart Borgman
2004-10-23 4:48 ` Richard Stallman
2004-10-24 12:42 ` Kim F. Storm
2004-10-24 12:59 ` Lennart Borgman
2004-10-24 19:40 ` Kim F. Storm
2004-10-24 20:06 ` Lennart Borgman
2004-10-25 13:13 ` Richard Stallman
2004-10-24 13:10 ` David Kastrup
2004-10-24 19:59 ` Kim F. Storm
2004-10-26 9:04 ` Richard Stallman
2004-10-26 17:05 ` Lennart Borgman
2004-10-24 22:31 ` Stefan
2004-10-25 7:22 ` David Kastrup
2004-10-25 11:47 ` Stefan
2004-10-25 12:51 ` David Kastrup
2004-10-25 13:50 ` Stefan Monnier
2004-10-25 14:52 ` Ralf Angeli
2004-10-25 15:08 ` Stefan Monnier
2004-10-25 15:18 ` David Kastrup
2004-10-25 15:35 ` Stefan Monnier
2004-10-26 9:00 ` Kim F. Storm
2004-10-26 9:25 ` David Kastrup
2004-10-26 12:23 ` Kim F. Storm
2004-10-26 18:55 ` Drew Adams
2004-10-26 21:06 ` David Kastrup
2004-10-26 21:54 ` Kim F. Storm
2004-10-27 2:15 ` Luc Teirlinck
2004-10-27 12:52 ` Kim F. Storm
2004-10-27 13:02 ` Luc Teirlinck
2004-10-27 13:16 ` David Kastrup
2004-10-27 14:51 ` feature freeze (was: finger-pointer curser as default for mouse-face text) Reiner Steib
2004-10-27 15:15 ` Kim F. Storm
2004-10-27 15:15 ` feature freeze David Kastrup
2004-10-27 17:29 ` finger-pointer curser as default for mouse-face text Drew Adams
2004-10-28 14:05 ` Kim F. Storm
2004-10-27 17:35 ` Richard Stallman
2004-11-01 14:40 ` Karl Eichwalder
2004-11-01 15:44 ` Stefan
2004-11-02 14:08 ` Richard Stallman
2004-11-02 18:08 ` Karl Eichwalder
2004-11-02 21:51 ` Miles Bader
2004-11-02 23:41 ` Drew Adams
2004-11-02 23:53 ` Stefan
2004-11-03 1:27 ` incrementor-decrementor commands and bindings (was: finger-pointer curser as default for mouse-face text) Drew Adams
2004-11-03 7:51 ` incrementor-decrementor commands and bindings (was: finger-pointercurser " Stephan Stahl
2004-11-03 15:26 ` Drew Adams
2004-11-04 9:51 ` Richard Stallman
2004-11-03 1:34 ` finger-pointer curser as default for mouse-face text Miles Bader
2004-11-03 9:31 ` Kim F. Storm
2004-11-03 9:26 ` Kim F. Storm
2004-11-03 10:20 ` David Kastrup
2004-11-03 17:04 ` Richard Stallman
2004-11-03 9:11 ` Kim F. Storm
2004-11-03 17:03 ` Richard Stallman
2004-10-27 17:34 ` Richard Stallman
2004-10-27 10:49 ` Richard Stallman
2004-10-27 12:24 ` Kim F. Storm
2004-10-27 13:03 ` Stefan Monnier
2004-10-27 13:18 ` David Kastrup
2004-10-28 2:27 ` Miles Bader
2004-10-27 7:22 ` Kai Grossjohann
2004-10-27 7:35 ` David Kastrup
2004-10-27 12:32 ` Kim F. Storm [this message]
2004-10-28 6:24 ` Richard Stallman
2004-10-27 10:47 ` Richard Stallman
2004-10-26 9:05 ` Richard Stallman
2004-10-25 8:31 ` Kim F. Storm
2004-10-25 10:01 ` David Kastrup
2004-10-25 12:32 ` Kim F. Storm
2004-10-26 9:05 ` Richard Stallman
2004-10-25 13:13 ` Richard Stallman
2004-10-21 14:09 ` David Kastrup
2004-10-21 14:42 ` Kim F. Storm
2004-10-21 15:21 ` David Kastrup
2004-10-21 19:55 ` Kim F. Storm
2004-10-21 20:09 ` Drew Adams
2004-10-21 21:45 ` Stefan Monnier
2004-10-21 22:09 ` David Kastrup
2004-10-22 9:10 ` Kim F. Storm
2004-10-22 12:45 ` David Kastrup
2004-10-22 15:03 ` Kim F. Storm
2004-10-22 15:56 ` David Kastrup
2004-10-17 19:27 Drew Adams
2004-10-18 11:19 ` Kim F. Storm
2004-10-18 13:59 ` Richard Stallman
2004-12-07 13:16 ` Per Abrahamsen
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=m31xfkmjdr.fsf@kfs-l.imdomain.dk \
--to=storm@cua.dk \
--cc=emacs-devel@gnu.org \
--cc=kai@emptydomain.de \
/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.