Mercurial > hg > xemacs-beta

comparison lisp/modeline.el @ 257:65c19d2020f7 r20-5b27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b27
author cvs
date Mon, 13 Aug 2007 10:22:03 +0200
parents f955c73f5258
children 11cf20601dec
comparison
equal deleted inserted replaced
256:19076a51efde 257:65c19d2020f7
72 (let ((done nil) 72 (let ((done nil)
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-offset
78 (- (modeline-hscroll (event-window event)) (event-x event)))
77 (last-timestamp 0) 79 (last-timestamp 0)
78 default-line-height 80 default-line-height
79 modeline-height 81 modeline-height
80 should-enlarge-minibuffer 82 should-enlarge-minibuffer
81 event min-height minibuffer y top bot edges wconfig growth) 83 event min-height minibuffer y top bot edges wconfig growth)
139 (setq done t)) 141 (setq done t))
140 ((< (abs (- (event-timestamp event) last-timestamp)) 142 ((< (abs (- (event-timestamp event) last-timestamp))
141 drag-modeline-event-lag) 143 drag-modeline-event-lag)
142 nil) 144 nil)
143 (t 145 (t
146 (set-modeline-hscroll (event-window event)
147 (+ hscroll-offset (event-x event)))
144 (setq last-timestamp (event-timestamp event) 148 (setq last-timestamp (event-timestamp event)
145 y (event-y-pixel event) 149 y (event-y-pixel event)
146 edges (window-pixel-edges start-event-window) 150 edges (window-pixel-edges start-event-window)
147 top (nth 1 edges) 151 top (nth 1 edges)
148 bot (nth 3 edges)) 152 bot (nth 3 edges))