[Qemacs-commit] qemacs qe.c qe.h qeconfig.h

[Charlie Gordon]

CVSROOT:        /sources/qemacs
Module name:    qemacs
Changes by:     Charlie Gordon <chqrlie>        14/02/10 20:10:32

Modified files:
        .              : qe.c qe.h qeconfig.h 

Log message:
        Add horizontal scrolling
        
        * add do_scroll_left_right to adjust x_disp
        * add scroll-left on M-( and scroll-right on M-)
        * horizontal scrolling is only half functional because display
          snaps left scroll to 0 if possible and increments are too small
          on graphics displays.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qemacs/qe.c?cvsroot=qemacs&r1=1.147&r2=1.148
http://cvs.savannah.gnu.org/viewcvs/qemacs/qe.h?cvsroot=qemacs&r1=1.138&r2=1.139
http://cvs.savannah.gnu.org/viewcvs/qemacs/qeconfig.h?cvsroot=qemacs&r1=1.44&r2=1.45

Patches:
Index: qe.c
===================================================================
RCS file: /sources/qemacs/qemacs/qe.c,v
retrieving revision 1.147
retrieving revision 1.148
diff -u -b -r1.147 -r1.148
--- qe.c        7 Feb 2014 20:16:42 -0000       1.147
+++ qe.c        10 Feb 2014 20:10:32 -0000      1.148
@@ -976,6 +976,12 @@
     return 0;
 }
 
+void do_scroll_left_right(EditState *s, int dir)
+{
+    /* XXX: should chnage x_disp by space_width increments */
+    s->x_disp[0] += dir;
+}
+
 void do_scroll_up_down(EditState *s, int dir)
 {
     if (s->mode->scroll_up_down)

Index: qe.h
===================================================================
RCS file: /sources/qemacs/qemacs/qe.h,v
retrieving revision 1.138
retrieving revision 1.139
diff -u -b -r1.138 -r1.139
--- qe.h        7 Feb 2014 15:56:17 -0000       1.138
+++ qe.h        10 Feb 2014 20:10:32 -0000      1.139
@@ -1746,6 +1746,7 @@
                 int offset1, int offset2, int line_num,
                 int x, int y, int w, int h, int hex_mode);
 // should take argval
+void do_scroll_left_right(EditState *s, int dir);
 void do_scroll_up_down(EditState *s, int dir);
 void perform_scroll_up_down(EditState *s, int h);
 void do_center_cursor(EditState *s);

Index: qeconfig.h
===================================================================
RCS file: /sources/qemacs/qemacs/qeconfig.h,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -b -r1.44 -r1.45
--- qeconfig.h  1 Feb 2014 12:49:06 -0000       1.44
+++ qeconfig.h  10 Feb 2014 20:10:32 -0000      1.45
@@ -276,6 +276,10 @@
           "find-window-left", do_find_window, KEY_LEFT)
     CMD1( KEY_CTRL('x'), KEY_RIGHT,
           "find-window-right", do_find_window, KEY_RIGHT)
+    CMD1( KEY_META('('), KEY_NONE,
+          "scroll-left", do_scroll_left_right, -1)
+    CMD1( KEY_META(')'), KEY_NONE,
+          "scroll-right", do_scroll_left_right, 1)
 #endif
     CMD1( KEY_CTRLX('0'), KEY_NONE,
           "delete-window", do_delete_window, 0)