Mercurial > hg > xemacs-beta
comparison lisp/modeline.el @ 288:e11d67e05968 r21-0b42
Import from CVS: tag r21-0b42
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:35:54 +0200 |
| parents | 57709be46d1b |
| children | c9fe270a4101 |
comparison
equal
deleted
inserted
replaced
| 287:13a0bd77a29d | 288:e11d67e05968 |
|---|---|
| 63 (or (button-press-event-p event) | 63 (or (button-press-event-p event) |
| 64 (error "%s must be invoked by a mouse-press" this-command)) | 64 (error "%s must be invoked by a mouse-press" this-command)) |
| 65 (or (event-over-modeline-p event) | 65 (or (event-over-modeline-p event) |
| 66 (error "not over a modeline")) | 66 (error "not over a modeline")) |
| 67 ;; Give the modeline a "pressed" look. --hniksic | 67 ;; Give the modeline a "pressed" look. --hniksic |
| 68 (with-specifier-instance modeline-shadow-thickness | 68 (let-specifier ((modeline-shadow-thickness |
| 69 (- (specifier-instance modeline-shadow-thickness (event-window event))) | 69 (- (specifier-instance modeline-shadow-thickness |
| 70 (event-window event) | 70 (event-window event))) |
| 71 (event-window event))) | |
| 71 (let ((done nil) | 72 (let ((done nil) |
| 72 (depress-line (event-y event)) | 73 (depress-line (event-y event)) |
| 73 (start-event-frame (event-frame event)) | 74 (start-event-frame (event-frame event)) |
| 74 (start-event-window (event-window event)) | 75 (start-event-window (event-window event)) |
| 75 (start-nwindows (count-windows t)) | 76 (start-nwindows (count-windows t)) |