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
a9d01547
Commit
a9d01547
authored
Dec 02, 2006
by
Chong Yidong
Browse files
(mouse-drag-track): Suppress automatic hscrolling for initial down
event.
parent
8a6137df
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
1 deletion
+10
-1
lisp/mouse.el
lisp/mouse.el
+10
-1
No files found.
lisp/mouse.el
View file @
a9d01547
...
...
@@ -925,7 +925,11 @@ should only be used by mouse-drag-region."
(
click-count
(
1-
(
event-click-count
start-event
)))
(
remap-double-click
(
and
on-link
(
eq
mouse-1-click-follows-link
'double
)
(
=
click-count
1
))))
(
=
click-count
1
)))
;; Suppress automatic hscrolling, because that is a nuisance
;; when setting point near the right fringe (but see below).
(
automatic-hscrolling-saved
automatic-hscrolling
)
(
automatic-hscrolling
nil
))
(
setq
mouse-selection-click-count
click-count
)
;; In case the down click is in the middle of some intangible text,
;; use the end of that text, and put it in START-POINT.
...
...
@@ -946,6 +950,11 @@ should only be used by mouse-drag-region."
(
memq
(
car-safe
event
)
'
(
switch-frame
select-window
))))
(
if
(
memq
(
car-safe
event
)
'
(
switch-frame
select-window
))
nil
;; Automatic hscrolling did not occur during the call to
;; `read-event'; but if the user subsequently drags the
;; mouse, go ahead and hscroll.
(
let
((
automatic-hscrolling
automatic-hscrolling-saved
))
(
redisplay
))
(
setq
end
(
event-end
event
)
end-point
(
posn-point
end
))
(
if
(
numberp
end-point
)
...
...
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