Mercurial > emacs
changeset 58194:00222ee714ca
(mouse-drag-copy-region): Add :version.
(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.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sat, 13 Nov 2004 01:29:45 +0000 |
| parents | 51fa3db532d0 |
| children | c12b583f54b9 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Sat Nov 13 01:29:31 2004 +0000 +++ b/lisp/mouse.el Sat Nov 13 01:29:45 2004 +0000 @@ -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 @@ (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 @@ (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)