Mercurial > hg > xemacs-beta

comparison lisp/modeline.el @ 265:8efd647ea9ca r20-5b31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b31
author cvs
date Mon, 13 Aug 2007 10:25:37 +0200
parents 727739f917cb
children 7df0dd720c89
comparison
equal deleted inserted replaced
264:682d2a9d41a5 265:8efd647ea9ca
73 (depress-line (event-y event)) 73 (depress-line (event-y event))
74 (start-event-frame (event-frame event)) 74 (start-event-frame (event-frame event))
75 (start-event-window (event-window event)) 75 (start-event-window (event-window event))
76 (start-nwindows (count-windows t)) 76 (start-nwindows (count-windows t))
77 (hscroll-delta (face-width 'modeline)) 77 (hscroll-delta (face-width 'modeline))
78 (start-hscroll (modeline-hscroll (event-window event))) 78 ;; (start-hscroll (modeline-hscroll (event-window event)))
79 (start-x-pixel (event-x-pixel event)) 79 (start-x-pixel (event-x-pixel event))
80 (last-timestamp 0) 80 (last-timestamp 0)
81 default-line-height 81 default-line-height
82 modeline-height 82 modeline-height
83 should-enlarge-minibuffer 83 should-enlarge-minibuffer
134 (setq done t) 134 (setq done t)
135 ;; Consider we have a mouse click neither X pos (modeline 135 ;; Consider we have a mouse click neither X pos (modeline
136 ;; scroll) nore Y pos (modeline drag) have changed. 136 ;; scroll) nore Y pos (modeline drag) have changed.
137 (and modeline-click-swaps-buffers 137 (and modeline-click-swaps-buffers
138 (= depress-line (event-y event)) 138 (= depress-line (event-y event))
139 (= start-hscroll (modeline-hscroll start-event-window)) 139 ;; (= start-hscroll (modeline-hscroll start-event-window))
140 (modeline-swap-buffers event))) 140 (modeline-swap-buffers event)))
141 ((button-event-p event) 141 ((button-event-p event)
142 (setq done t)) 142 (setq done t))
143 ((not (motion-event-p event)) 143 ((not (motion-event-p event))
144 (dispatch-event event)) 144 (dispatch-event event))
146 (setq done t)) 146 (setq done t))
147 ((< (abs (- (event-timestamp event) last-timestamp)) 147 ((< (abs (- (event-timestamp event) last-timestamp))
148 drag-modeline-event-lag) 148 drag-modeline-event-lag)
149 nil) 149 nil)
150 (t 150 (t
151 (set-modeline-hscroll start-event-window 151 ;; (set-modeline-hscroll start-event-window
152 (+ (/ (- (event-x-pixel event) 152 ;; (+ (/ (- (event-x-pixel event)
153 start-x-pixel) 153 ;; start-x-pixel)
154 hscroll-delta) 154 ;; hscroll-delta)
155 start-hscroll)) 155 ;; start-hscroll))
156 (setq last-timestamp (event-timestamp event) 156 (setq last-timestamp (event-timestamp event)
157 y (event-y-pixel event) 157 y (event-y-pixel event)
158 edges (window-pixel-edges start-event-window) 158 edges (window-pixel-edges start-event-window)
159 top (nth 1 edges) 159 top (nth 1 edges)
160 bot (nth 3 edges)) 160 bot (nth 3 edges))