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
1c9df23f
Commit
1c9df23f
authored
Aug 17, 1996
by
Richard M. Stallman
Browse files
(mouse-drag-region): Don't call mouse-set-region-1
if mark is gone or no longer active or if we changed buffers.
parent
e4269dcb
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
2 deletions
+9
-2
lisp/mouse.el
lisp/mouse.el
+9
-2
No files found.
lisp/mouse.el
View file @
1c9df23f
...
...
@@ -594,8 +594,15 @@ remains active. Otherwise, it remains until the next input event."
(
push-mark
region-commencement
t
t
)
(
goto-char
region-termination
)
(
copy-region-as-kill
(
point
)
(
mark
t
))
(
mouse-show-mark
)
(
mouse-set-region-1
))
(
let
((
buffer
(
current-buffer
)))
(
mouse-show-mark
)
;; mouse-show-mark can call read-event,
;; and that means the Emacs server could switch buffers
;; under us. If that happened,
;; avoid trying to use the region.
(
and
(
mark
t
)
mark-active
(
eq
buffer
(
current-buffer
))
(
mouse-set-region-1
))))
(
goto-char
(
overlay-end
mouse-drag-overlay
))
(
setq
this-command
'mouse-set-point
)
(
delete-overlay
mouse-drag-overlay
))))
...
...
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