procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mouse-drag-copy-region): Add :version.

Browse source 
(mouse-drag-mode-line-1): Let bind mouse-autoselect-window to nil
while dragging mode line, so mode line can be dragged downwards.
(mouse-drag-region-1): Let bind make-cursor-line-fully-visible
while pressing mouse button so window doesn't scroll until we
release the mouse if clicking on partially visible line.
This commit is contained in:
Kim F. Storm 2004-11-13 01:29:45 +00:00
parent 5596fbf1d9
commit 8413d0d2da
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/mouse.el
View file

@ -1,6 +1,6 @@
;;; mouse.el --- window system-independent mouse support
;; Copyright (C) 1993, 94, 95, 1999, 2000, 01, 2004
;; Copyright (C) 1993, 94, 95, 1999, 2000, 2001, 2002, 2003, 2004
;; Free Software Foundation, Inc.
;; Maintainer: FSF
@ -46,6 +46,7 @@
(defcustom mouse-drag-copy-region t
"*If non-nil, mouse drag copies region to kill-ring."
:type 'boolean
:version "21.4"
:group 'mouse)
@ -363,6 +364,7 @@ MODE-LINE-P non-nil means dragging a mode line; nil means a header line."
(start-nwindows (count-windows t))
(old-selected-window (selected-window))
(minibuffer (frame-parameter nil 'minibuffer))
(mouse-autoselect-window nil)
should-enlarge-minibuffer event mouse y top bot edges wconfig growth)
(track-mouse
(progn
@ -741,6 +743,7 @@ If the click is in the echo area, display the `*Messages*' buffer."
(start-frame (window-frame start-window))
(start-hscroll (window-hscroll start-window))
(bounds (window-edges start-window))
(make-cursor-line-fully-visible nil)
(top (nth 1 bounds))
(bottom (if (window-minibuffer-p start-window)
(nth 3 bounds)