1 |
;;; mouse.el --- window system-independent mouse support |
;;; mouse.el --- window system-independent mouse support |
2 |
|
|
3 |
;; Copyright (C) 1993, 94, 95, 1999, 2000, 01, 2004 |
;; Copyright (C) 1993, 94, 95, 1999, 2000, 2001, 2002, 2003, 2004 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Maintainer: FSF |
;; Maintainer: FSF |
46 |
(defcustom mouse-drag-copy-region t |
(defcustom mouse-drag-copy-region t |
47 |
"*If non-nil, mouse drag copies region to kill-ring." |
"*If non-nil, mouse drag copies region to kill-ring." |
48 |
:type 'boolean |
:type 'boolean |
49 |
|
:version "21.4" |
50 |
:group 'mouse) |
:group 'mouse) |
51 |
|
|
52 |
|
|
364 |
(start-nwindows (count-windows t)) |
(start-nwindows (count-windows t)) |
365 |
(old-selected-window (selected-window)) |
(old-selected-window (selected-window)) |
366 |
(minibuffer (frame-parameter nil 'minibuffer)) |
(minibuffer (frame-parameter nil 'minibuffer)) |
367 |
|
(mouse-autoselect-window nil) |
368 |
should-enlarge-minibuffer event mouse y top bot edges wconfig growth) |
should-enlarge-minibuffer event mouse y top bot edges wconfig growth) |
369 |
(track-mouse |
(track-mouse |
370 |
(progn |
(progn |
743 |
(start-frame (window-frame start-window)) |
(start-frame (window-frame start-window)) |
744 |
(start-hscroll (window-hscroll start-window)) |
(start-hscroll (window-hscroll start-window)) |
745 |
(bounds (window-edges start-window)) |
(bounds (window-edges start-window)) |
746 |
|
(make-cursor-line-fully-visible nil) |
747 |
(top (nth 1 bounds)) |
(top (nth 1 bounds)) |
748 |
(bottom (if (window-minibuffer-p start-window) |
(bottom (if (window-minibuffer-p start-window) |
749 |
(nth 3 bounds) |
(nth 3 bounds) |