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
3b0aebe9
Commit
3b0aebe9
authored
May 20, 1994
by
Richard M. Stallman
Browse files
(mouse-drag-secondary): Handle mouse motion out of window
as in mouse-drag-region.
parent
9fdbfdf8
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
26 deletions
+11
-26
lisp/mouse.el
lisp/mouse.el
+11
-26
No files found.
lisp/mouse.el
View file @
3b0aebe9
...
...
@@ -629,32 +629,17 @@ This must be bound to a button-down mouse event."
click-count
)))
(
move-overlay
mouse-secondary-overlay
(
car
range
)
(
nth
1
range
))))
;; Are we moving on a different window on the same frame?
((
and
(
windowp
(
posn-window
end
))
(
eq
(
window-frame
(
posn-window
end
))
start-frame
))
(
let
((
mouse-row
(
+
(
nth
1
(
window-edges
(
posn-window
end
)))
(
cdr
(
posn-col-row
end
)))))
(
cond
((
<
mouse-row
top
)
(
mouse-scroll-subr
(
-
mouse-row
top
)
mouse-secondary-overlay
start-point
))
((
and
(
not
(
eobp
))
(
>=
mouse-row
bottom
))
(
mouse-scroll-subr
(
1+
(
-
mouse-row
bottom
))
mouse-drag-overlay
start-point
)))))
(
t
(
let
((
mouse-y
(
cdr
(
cdr
(
mouse-position
))))
(
menu-bar-lines
(
or
(
cdr
(
assq
'menu-bar-lines
(
frame-parameters
)))
0
)))
;; Are we on the menu bar?
(
and
(
integerp
mouse-y
)
(
<
mouse-y
menu-bar-lines
)
(
mouse-scroll-subr
(
-
mouse-y
menu-bar-lines
)
mouse-secondary-overlay
start-point
))))))))
(
t
(
let
((
mouse-row
(
cdr
(
cdr
(
mouse-position
)))))
(
cond
((
null
mouse-row
))
((
<
mouse-row
top
)
(
mouse-scroll-subr
(
-
mouse-row
top
)
mouse-secondary-overlay
start-point
))
((
and
(
not
(
eobp
))
(
>=
mouse-row
bottom
))
(
mouse-scroll-subr
(
1+
(
-
mouse-row
bottom
))
mouse-secondary-overlay
start-point
)))))))))
(
if
(
and
(
eq
(
get
(
event-basic-type
event
)
'event-kind
)
'mouse-click
)
(
eq
(
posn-window
(
event-end
event
))
start-window
)
...
...
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