summaryrefslogtreecommitdiff
path: root/lisp/mouse.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-07-15 21:32:01 +0000
committerRichard M. Stallman <rms@gnu.org>1994-07-15 21:32:01 +0000
commit3ad0e7cefd518395da380947f7235d19800363b4 (patch)
tree806d335b1578b89f6c1798cc7c7faf995faed24a /lisp/mouse.el
parent5330e99c716e17b584dd5f09c3ed1cd6807393a1 (diff)
downloademacs-3ad0e7cefd518395da380947f7235d19800363b4.tar.gz
(mouse-drag-region): Delete redundant switch-frame clause.
(mouse-drag-secondary): Likewise.
Diffstat (limited to 'lisp/mouse.el')
-rw-r--r--lisp/mouse.el8
1 files changed, 0 insertions, 8 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el
index c43b25457c9..ad79560a956 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -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))