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
3617aa76
Commit
3617aa76
authored
Sep 23, 1996
by
Richard M. Stallman
Browse files
(mouse-drag-region): Ignore event end-point if it is not a number.
parent
57498544
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
2 deletions
+5
-2
lisp/mouse.el
lisp/mouse.el
+5
-2
No files found.
lisp/mouse.el
View file @
3617aa76
...
...
@@ -524,7 +524,7 @@ remains active. Otherwise, it remains until the next input event."
nil
(
setq
end
(
event-end
event
)
end-point
(
posn-point
end
))
(
if
end-point
(
if
(
numberp
end-point
)
(
setq
last-end-point
end-point
))
(
cond
...
...
@@ -574,7 +574,10 @@ remains active. Otherwise, it remains until the next input event."
(
cons
event
unread-command-events
)))
(
if
(
not
(
=
(
overlay-start
mouse-drag-overlay
)
(
overlay-end
mouse-drag-overlay
)))
(
let*
((
stop-point
(
or
(
posn-point
(
event-end
event
))
last-end-point
))
(
let*
((
stop-point
(
if
(
numberp
(
posn-point
(
event-end
event
)))
(
posn-point
(
event-end
event
))
last-end-point
))
;; The end that comes from where we ended the drag.
;; Point goes here.
(
region-termination
...
...
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