modeline hscroll

Hi, and happy new year to all ! I've just committed a patch to 21.2 that (re)implements the modeline horizontal scrolling facility. The lisp interface to the feature is composed of two functions: [set-]modeline-hscroll. One remaining issue is a possible user interface to the feature. Just to remind you of the discussion we had some time ago: I'd originally enabled clicking on the modeline and dragging it horizontally to scroll it. There were a debate on the sense the modeline should scroll: - the team who sees it as dragging the modeline itself: moving the mouse left shoud move the text left, - the team who sees it as dragging the viewport, or giving the direction text should appear (a la gv): moving the mouse left should move the text right. Obvioulsy, it is also possible to let people choose, to add arrows at both ends of the modeline (but the debate on the scrolling sense will still occur), and finally, people objected that it is not very practical to scroll the modeline with the mouse, as it also might resize the window if you move the mouse vertically. My current feeling is that simple key bindings should do it :-) Here's what I have right now in my init.el. We could provide similar functions in modeline.el. (global-set-key [(shift left)] (lambda () (interactive) (let ((w (selected-window))) (set-modeline-hscroll w (- (modeline-hscroll w) 1))))) (global-set-key [(shift right)] (lambda () (interactive) (let ((w (selected-window))) (set-modeline-hscroll w (+ (modeline-hscroll w) 1))))) -- / / _ _ Didier Verna http://www.inf.enst.fr/~verna/ - / / - / / /_/ / EPITA / LRDE mailto:didier＠epita.fr /_/ / /_/ / /__ / 14-16 rue Voltaire Tel. +33 (1) 44 08 01 77 94276 Kremlin-Bicêtre cedex Fax. +33 (1) 44 08 01 99