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
d43fe049
Commit
d43fe049
authored
Jul 31, 1994
by
Richard M. Stallman
Browse files
(mouse-extend): Pass WINDOW arg to mouse-scroll-subr.
parent
3afe9f5e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
3 deletions
+3
-3
lisp/mouse-sel.el
lisp/mouse-sel.el
+3
-3
No files found.
lisp/mouse-sel.el
View file @
d43fe049
...
...
@@ -318,16 +318,16 @@ This should be bound to a down-mouse event."
(
let
((
end-row
(
cdr
(
cdr
(
mouse-position
)))))
(
cond
((
and
end-row
(
not
(
bobp
))
(
<
end-row
top
))
(
mouse-scroll-subr
(
-
end-row
top
)
(
mouse-scroll-subr
orig-window
(
-
end-row
top
)
mouse-drag-overlay
max
))
((
and
end-row
(
not
(
eobp
))
(
>=
end-row
bottom
))
(
mouse-scroll-subr
(
1+
(
-
end-row
bottom
))
(
mouse-scroll-subr
orig-window
(
1+
(
-
end-row
bottom
))
mouse-drag-overlay
min
))
)))
;; On the mode line
((
eq
(
posn-point
end
)
'mode-line
)
(
mouse-scroll-subr
1
mouse-drag-overlay
min
))
(
mouse-scroll-subr
orig-window
1
mouse-drag-overlay
min
))
;; In original window
(
t
(
goto-char
(
posn-point
end
)))
...
...
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