/[emacs]/emacs/lisp/mouse.el
ViewVC logotype

Diff of /emacs/lisp/mouse.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.241.2.11 by miles, Fri Nov 12 04:21:14 2004 UTC revision 1.241.2.12 by miles, Wed Dec 8 23:31:43 2004 UTC
# Line 1  Line 1 
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
# Line 46  Line 46 
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    
# Line 363  MODE-LINE-P non-nil means dragging a mod Line 364  MODE-LINE-P non-nil means dragging a mod
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
# Line 741  If the click is in the echo area, displa Line 743  If the click is in the echo area, displa
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)

Legend:
Removed from v.1.241.2.11  
changed lines
  Added in v.1.241.2.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26