HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove sigio blocking
[bpt/emacs.git]
/
lisp
/
mouse-drag.el
diff --git
a/lisp/mouse-drag.el
b/lisp/mouse-drag.el
index
7fb1050
..
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
2
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
@@
-46,7
+46,7
@@
;; If you like mouse-drag, you should also check out mouse-copy
;; for ``one-click text copy and move''.
;;
;; If you like mouse-drag, you should also check out mouse-copy
;; for ``one-click text copy and move''.
;;
-;; To use mouse-drag, place the following in your
.emacs
file:
+;; To use mouse-drag, place the following in your
init
file:
;; -either-
;; (global-set-key [down-mouse-2] 'mouse-drag-throw)
;; -or-
;; -either-
;; (global-set-key [down-mouse-2] 'mouse-drag-throw)
;; -or-
@@
-156,7
+156,7
@@
Keep the cursor on the screen as needed."
"Determine if it's wise to enable col-scrolling for the current window.
Basically, we check for existing horizontal scrolling."
(or truncate-lines
"Determine if it's wise to enable col-scrolling for the current window.
Basically, we check for existing horizontal scrolling."
(or truncate-lines
- (> (window-hscroll
(selected-window)
) 0)
+ (> (window-hscroll) 0)
(not (window-full-width-p))
(and
mouse-drag-electric-col-scrolling
(not (window-full-width-p))
(and
mouse-drag-electric-col-scrolling
@@
-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