Mercurial > hg > xemacs-beta

comparison lisp/modeline.el @ 290:c9fe270a4101 r21-0b43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b43
author cvs
date Mon, 13 Aug 2007 10:36:47 +0200
parents e11d67e05968
children 8626e4521993
comparison
equal deleted inserted replaced
289:6e6992ccc4b6 290:c9fe270a4101
37 37
38 (defgroup modeline nil 38 (defgroup modeline nil
39 "Modeline customizations." 39 "Modeline customizations."
40 :group 'environment) 40 :group 'environment)
41 41
42 (defcustom drag-modeline-event-lag 150 42 (defcustom drag-divider-event-lag 150
43 "*The pause (in msecs) between drag modeline events before redisplaying. 43 "*The pause (in msecs) between divider drag events before redisplaying.
44 If this value is too small, dragging will be choppy because redisplay cannot 44 If this value is too small, dragging will be choppy because redisplay cannot
45 keep up. If it is too large, dragging will be choppy because of the explicit 45 keep up. If it is too large, dragging will be choppy because of the explicit
46 redisplay delay specified." 46 redisplay delay specified."
47 :type 'integer 47 :type 'integer
48 ;; #### Fix group.
48 :group 'modeline) 49 :group 'modeline)
50
51 (define-obsolete-variable-alias
52 'drag-modeline-event-lag
53 'drag-divider-event-lag)
49 54
50 (defcustom modeline-click-swaps-buffers nil 55 (defcustom modeline-click-swaps-buffers nil
51 "*If non-nil, clicking on the modeline changes the current buffer. 56 "*If non-nil, clicking on the modeline changes the current buffer.
52 Click on the left half of the modeline cycles forward through the 57 Click on the left half of the modeline cycles forward through the
53 buffer list and clicking on the right half cycles backward." 58 buffer list and clicking on the right half cycles backward."
121 ;; keypress event. 126 ;; keypress event.
122 ;; quit if this is a button press or release event, or if the event 127 ;; quit if this is a button press or release event, or if the event
123 ;; occurred in some other frame. 128 ;; occurred in some other frame.
124 ;; drag if this is a mouse motion event and the time 129 ;; drag if this is a mouse motion event and the time
125 ;; between this event and the last event is greater than 130 ;; between this event and the last event is greater than
126 ;; drag-modeline-event-lag. 131 ;; drag-divider-event-lag.
127 ;; do nothing if this is any other kind of event. 132 ;; do nothing if this is any other kind of event.
128 (cond ((or (misc-user-event-p event) 133 (cond ((or (misc-user-event-p event)
129 (key-press-event-p event)) 134 (key-press-event-p event))
130 (setq unread-command-events (nconc unread-command-events 135 (setq unread-command-events (nconc unread-command-events
131 (list event)) 136 (list event))
143 ((not (motion-event-p event)) 148 ((not (motion-event-p event))
144 (dispatch-event event)) 149 (dispatch-event event))
145 ((not (eq start-event-frame (event-frame event))) 150 ((not (eq start-event-frame (event-frame event)))
146 (setq done t)) 151 (setq done t))
147 ((< (abs (- (event-timestamp event) last-timestamp)) 152 ((< (abs (- (event-timestamp event) last-timestamp))
148 drag-modeline-event-lag) 153 drag-divider-event-lag)
149 nil) 154 nil)
150 (t 155 (t
151 ;; (set-modeline-hscroll start-event-window 156 ;; (set-modeline-hscroll start-event-window
152 ;; (+ (/ (- (event-x-pixel event) 157 ;; (+ (/ (- (event-x-pixel event)
153 ;; start-x-pixel) 158 ;; start-x-pixel)