From 8413d0d2da505fe4e23d99b77383b780e27b68c3 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sat, 13 Nov 2004 01:29:45 +0000 Subject: [PATCH] (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. --- lisp/mouse.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index 865b5e96297..912048cd1de 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -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) -- 2.39.5