Commit 0e6008c5 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/mouse.el (mouse--down-1-maybe-follows-link): Fix follow-link

remapping in mode-line.
(mouse-on-link-p): Also check [mode-line follow-link] bindings.
parent 095d384d
2013-03-19 Stefan Monnier <monnier@iro.umontreal.ca>
* mouse.el (mouse--down-1-maybe-follows-link): Fix follow-link
remapping in mode-line.
(mouse-on-link-p): Also check [mode-line follow-link] bindings.
2013-03-19 Dmitry Gutov <dgutov@yandex.ru>
 
* whitespace.el (whitespace-color-on): Use `prepend' OVERRIDE
......
......@@ -128,7 +128,11 @@ Expects to be bound to `down-mouse-1' in `key-translation-map'."
(put newup 'event-kind (get (car event) 'event-kind))
(put newdown 'event-kind (get (car this-event) 'event-kind))
(push (cons newup (cdr event)) unread-command-events)
(vector (cons newdown (cdr this-event))))
;; Modify the event in place, so read-key-sequence doesn't
;; generate a second fake prefix key (see fake_prefixed_keys in
;; src/keyboard.c).
(setcar this-event newdown)
(vector this-event))
(push event unread-command-events)
nil))))))
......@@ -760,6 +764,9 @@ at the same position."
mouse-1-click-in-non-selected-windows
(eq (selected-window) (posn-window pos)))
(or (mouse-posn-property pos 'follow-link)
(let ((area (posn-area pos)))
(when area
(key-binding (vector area 'follow-link) nil t pos)))
(key-binding [follow-link] nil t pos)))))
(cond
((eq action 'mouse-face)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment