diff options
| author | Chong Yidong <cyd@gnu.org> | 2012-07-08 16:26:21 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-07-08 16:26:21 +0800 |
| commit | 01ac65bd7c0df6c895bf18810ee5c8d24704681a (patch) | |
| tree | 2c595fce43a388b9bee4aa461c894a3deaf6f08b /lisp/info.el | |
| parent | d75be97d549b7264098ff19f8941a0dd80bde080 (diff) | |
| download | emacs-01ac65bd7c0df6c895bf18810ee5c8d24704681a.tar.gz | |
Fix interaction of line-dragging with mouse-1-click-follows-link.
* lisp/mouse.el (mouse-drag-line): Rewrite the track-mouse loop.
Implement the mouse-1-click-follows-link handling properly.
* lisp/info.el (Info-link-keymap): Use follow-link mechanism for
header-line links.
Fixes: debbugs:374
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/info.el b/lisp/info.el index 9a62bc23fd0..0afb3f01339 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -4361,9 +4361,9 @@ the variable `Info-file-list-for-emacs'." (defvar Info-link-keymap (let ((keymap (make-sparse-keymap))) - (define-key keymap [header-line mouse-1] 'Info-mouse-follow-link) + (define-key keymap [header-line down-mouse-1] 'mouse-drag-header-line) + (define-key keymap [header-line mouse-1] 'mouse-select-window) (define-key keymap [header-line mouse-2] 'Info-mouse-follow-link) - (define-key keymap [header-line down-mouse-1] 'ignore) (define-key keymap [mouse-2] 'Info-mouse-follow-link) (define-key keymap [follow-link] 'mouse-face) keymap) |