X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmodeline.el;h=5311486522f433574ca46f89bc9f26f6161e9583;hb=7e28a5d265d6d97c328190470e79f6d66d6a4f66;hp=43da2ae225d96e9ad793f6d833d2e30906819a6e;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git diff --git a/lisp/modeline.el b/lisp/modeline.el index 43da2ae..5311486 100644 --- a/lisp/modeline.el +++ b/lisp/modeline.el @@ -81,7 +81,7 @@ make the clicked-on window taller or shorter." (start-nwindows (count-windows t)) ;; (hscroll-delta (face-width 'modeline)) ;; (start-hscroll (modeline-hscroll (event-window event))) - (start-x-pixel (event-x-pixel event)) +; (start-x-pixel (event-x-pixel event)) (last-timestamp 0) default-line-height modeline-height @@ -220,7 +220,7 @@ make the clicked-on window taller or shorter." "Handle mouse clicks on modeline by switching buffers. If click on left half of a frame's modeline, bury current buffer. If click on right half of a frame's modeline, raise bottommost buffer. -Arg EVENT is the button release event that occured on the modeline." +Arg EVENT is the button release event that occurred on the modeline." (or (event-over-modeline-p event) (error "not over a modeline")) (or (button-release-event-p event)