HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
scheme interaction mode
[bpt/emacs.git]
/
lisp
/
mouse-drag.el
diff --git
a/lisp/mouse-drag.el
b/lisp/mouse-drag.el
index
009cc2e
..
082c923
100644
(file)
--- a/
lisp/mouse-drag.el
+++ b/
lisp/mouse-drag.el
@@
-1,6
+1,6
@@
;;; mouse-drag.el --- use mouse-2 to do a new style of scrolling
;;; mouse-drag.el --- use mouse-2 to do a new style of scrolling
-;; Copyright (C) 1996-1997, 2001-201
3
Free Software Foundation, Inc.
+;; Copyright (C) 1996-1997, 2001-201
4
Free Software Foundation, Inc.
;; Author: John Heidemann <johnh@ISI.EDU>
;; Keywords: mouse
;; Author: John Heidemann <johnh@ISI.EDU>
;; Keywords: mouse
@@
-291,7
+291,7
@@
To test this function, evaluate:
(or (mouse-movement-p event)
(eq (car-safe event) 'switch-frame)))
;; Scroll if see if we're on the edge.
(or (mouse-movement-p event)
(eq (car-safe event) 'switch-frame)))
;; Scroll if see if we're on the edge.
- ;;
NEEDSWORK
: should handle mouse-in-other window.
+ ;;
FIXME
: should handle mouse-in-other window.
(cond
((not (eq start-window (posn-window end)))
t) ; wait for return to original window
(cond
((not (eq start-window (posn-window end)))
t) ; wait for return to original window