Mercurial > hg > xemacs-beta

comparison lisp/modeline.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents c9fe270a4101
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
79 (start-event-frame (event-frame event)) 79 (start-event-frame (event-frame event))
80 (start-event-window (event-window event)) 80 (start-event-window (event-window event))
81 (start-nwindows (count-windows t)) 81 (start-nwindows (count-windows t))
82 ;; (hscroll-delta (face-width 'modeline)) 82 ;; (hscroll-delta (face-width 'modeline))
83 ;; (start-hscroll (modeline-hscroll (event-window event))) 83 ;; (start-hscroll (modeline-hscroll (event-window event)))
84 (start-x-pixel (event-x-pixel event)) 84 ; (start-x-pixel (event-x-pixel event))
85 (last-timestamp 0) 85 (last-timestamp 0)
86 default-line-height 86 default-line-height
87 modeline-height 87 modeline-height
88 should-enlarge-minibuffer 88 should-enlarge-minibuffer
89 event min-height minibuffer y top bot edges wconfig growth) 89 event min-height minibuffer y top bot edges wconfig growth)
218 ;; mouse-drag-modeline - dverna feb. 98 218 ;; mouse-drag-modeline - dverna feb. 98
219 (defun modeline-swap-buffers (event) 219 (defun modeline-swap-buffers (event)
220 "Handle mouse clicks on modeline by switching buffers. 220 "Handle mouse clicks on modeline by switching buffers.
221 If click on left half of a frame's modeline, bury current buffer. 221 If click on left half of a frame's modeline, bury current buffer.
222 If click on right half of a frame's modeline, raise bottommost buffer. 222 If click on right half of a frame's modeline, raise bottommost buffer.
223 Arg EVENT is the button release event that occured on the modeline." 223 Arg EVENT is the button release event that occurred on the modeline."
224 (or (event-over-modeline-p event) 224 (or (event-over-modeline-p event)
225 (error "not over a modeline")) 225 (error "not over a modeline"))
226 (or (button-release-event-p event) 226 (or (button-release-event-p event)
227 (error "not a button release event")) 227 (error "not a button release event"))
228 (if (< (event-x event) (/ (window-width (event-window event)) 2)) 228 (if (< (event-x event) (/ (window-width (event-window event)) 2))