Mercurial > hg > xemacs-beta

comparison lisp/mouse.el @ 227:0e522484dd2a r20-5b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b12
author cvs
date Mon, 13 Aug 2007 10:12:37 +0200
parents 2c611d1463a6
children f220cc83d72e
comparison
equal deleted inserted replaced
226:eea38c7ad7b4 227:0e522484dd2a
50 ;; accept any button1,2,3 drop with `mouse-offix-drop' 50 ;; accept any button1,2,3 drop with `mouse-offix-drop'
51 (cond ((featurep 'offix) 51 (cond ((featurep 'offix)
52 (global-set-key 'drop1 'mouse-offix-drop) 52 (global-set-key 'drop1 'mouse-offix-drop)
53 (global-set-key 'drop2 'mouse-offix-drop) 53 (global-set-key 'drop2 'mouse-offix-drop)
54 (global-set-key 'drop3 'mouse-offix-drop))) 54 (global-set-key 'drop3 'mouse-offix-drop)))
55
56 (defgroup mouse nil
57 "Window system-independent mouse support."
58 :group 'editing)
55 59
56 (defcustom mouse-track-rectangle-p nil 60 (defcustom mouse-track-rectangle-p nil
57 "*If true, then dragging out a region with the mouse selects rectangles 61 "*If true, then dragging out a region with the mouse selects rectangles
58 instead of simple start/end regions." 62 instead of simple start/end regions."
59 :type 'boolean 63 :type 'boolean