Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
87eb576e
Commit
87eb576e
authored
Aug 07, 2014
by
Stefan Monnier
Browse files
* lisp/info.el (Info-mode-map): Override a global down-mouse-2 binding.
Fixes: debbugs:18212
parent
8db811ef
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
18 additions
and
13 deletions
+18
-13
lisp/ChangeLog
lisp/ChangeLog
+9
-4
lisp/info.el
lisp/info.el
+1
-0
lisp/mouse.el
lisp/mouse.el
+8
-9
No files found.
lisp/ChangeLog
View file @
87eb576e
2014-08-07 Stefan Monnier <monnier@iro.umontreal.ca>
* info.el (Info-mode-map): Override a global down-mouse-2 binding
(bug#18212).
2014-08-05 Eli Zaretskii <eliz@gnu.org>
* simple.el (default-line-height): A floating-point value of
line-spacing means a fraction of the default frame font's height,
not of the font currently used by the 'default' face.
Truncate
the pixel value, like the display engine does.
not of the font currently used by the 'default' face.
Truncate
the pixel value, like the display engine does.
(window-screen-lines): Use window-inside-pixel-edges for
determining the window height in pixels. (Bug#18195)
...
...
@@ -105,8 +110,8 @@
2014-07-19 Fabián Ezequiel Gallina <fgallina@gnu.org>
Fix Python shell prompts detection for remote hosts.
* progmodes/python.el (python-shell-prompt-detect):
Replace
call-process with process-file and make it more robust.
* progmodes/python.el (python-shell-prompt-detect):
Replace
call-process with process-file and make it more robust.
2014-07-17 Fabián Ezequiel Gallina <fgallina@gnu.org>
...
...
lisp/info.el
View file @
87eb576e
...
...
@@ -3994,6 +3994,7 @@ If FORK is non-nil, it is passed to `Info-goto-node'."
(
define-key
map
","
'Info-index-next
)
(
define-key
map
"\177"
'Info-scroll-down
)
(
define-key
map
[mouse-2]
'Info-mouse-follow-nearest-node
)
(
define-key
map
[down-mouse-2]
'ignore
)
;Override potential global binding.
(
define-key
map
[follow-link]
'mouse-face
)
(
define-key
map
[XF86Back]
'Info-history-back
)
(
define-key
map
[XF86Forward]
'Info-history-forward
)
...
...
lisp/mouse.el
View file @
87eb576e
...
...
@@ -94,15 +94,14 @@ point at the click position."
(
defun
mouse--down-1-maybe-follows-link
(
&optional
_prompt
)
"Turn `mouse-1' events into `mouse-2' events if follows-link.
Expects to be bound to `down-mouse-1' in `key-translation-map'."
(
if
(
or
(
null
mouse-1-click-follows-link
)
(
not
(
eq
(
if
(
eq
mouse-1-click-follows-link
'double
)
'double-down-mouse-1
'down-mouse-1
)
(
car-safe
last-input-event
)))
(
not
(
mouse-on-link-p
(
event-start
last-input-event
)))
(
and
(
not
mouse-1-click-in-non-selected-windows
)
(
not
(
eq
(
selected-window
)
(
posn-window
(
event-start
last-input-event
))))))
nil
(
when
(
and
mouse-1-click-follows-link
(
eq
(
if
(
eq
mouse-1-click-follows-link
'double
)
'double-down-mouse-1
'down-mouse-1
)
(
car-safe
last-input-event
))
(
mouse-on-link-p
(
event-start
last-input-event
))
(
or
mouse-1-click-in-non-selected-windows
(
eq
(
selected-window
)
(
posn-window
(
event-start
last-input-event
)))))
(
let
((
this-event
last-input-event
)
(
timedout
(
sit-for
(
if
(
numberp
mouse-1-click-follows-link
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment