mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(mouse-drag-region): Delete redundant switch-frame clause.

Browse Source 
(mouse-drag-secondary): Likewise.
This commit is contained in:
Richard M. Stallman 1994-07-15 21:32:01 +00:00
parent 5330e99c71
commit 3ad0e7cefd
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/mouse.el
View File

@ -228,10 +228,6 @@ release the mouse button. Otherwise, it does not."
end-point (posn-point end))
(cond
;; Ignore switch-frame events.
((eq (car-safe event) 'switch-frame))
;; Are we moving within the original window?
((and (eq (posn-window end) start-window)
(integer-or-marker-p end-point))
@ -622,10 +618,6 @@ This must be bound to a button-down mouse event."
(setq end (event-end event)
end-point (posn-point end))
(cond
;; Ignore switch-frame events.
((eq (car-safe event) 'switch-frame))
;; Are we moving within the original window?
((and (eq (posn-window end) start-window)
(integer-or-marker-p end-point))