[Qemacs-commit] qemacs shell.c

[Charlie Gordon]

CVSROOT:        /cvsroot/qemacs
Module name:    qemacs
Changes by:     Charlie Gordon <chqrlie>        08/04/13 23:03:20

Modified files:
        .              : shell.c 

Log message:
        fixed support for BS and M-BS in shell mode

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qemacs/shell.c?cvsroot=qemacs&r1=1.57&r2=1.58

Patches:
Index: shell.c
===================================================================
RCS file: /cvsroot/qemacs/qemacs/shell.c,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -b -r1.57 -r1.58
--- shell.c     13 Apr 2008 17:31:47 -0000      1.57
+++ shell.c     13 Apr 2008 23:03:20 -0000      1.58
@@ -975,11 +975,11 @@
                 tty_goto_xy(s, 0, s->esc_params[0] - 1, 1);
                 break;
             case 'J':   /* ED: erase screen or parts of it */
-                        /*     2 -> from begin, 1 -> to end */
+                       /*     0: to end, 1: from begin, 2: all */
                 //put_status(NULL, "erase screen %d", s->esc_params[0]);
                 break;
             case 'K':   /* EL: erase line or parts of it */
-                        /*     2 -> from begin, 1 -> to end */
+                       /*     0: to end, 1: from begin, 2: all line */
                 offset1 = eb_goto_eol(s->b, s->cur_offset);
                 eb_delete(s->b, s->cur_offset, offset1 - s->cur_offset);
                 break;
@@ -1485,6 +1485,7 @@
         case 11:
             do_kill_line(e, 1);
             break;
+        case KEY_BS:
         case KEY_DEL:
             do_backspace(e, NO_ARG);
             break;
@@ -1494,6 +1495,7 @@
         case KEY_META('d'):
             do_kill_word(e, 1);
             break;
+        case KEY_META(KEY_BS):
         case KEY_META(KEY_DEL):
             do_kill_word(e, -1);
             break;
@@ -1665,8 +1667,8 @@
           "shell-delete-char", shell_write_char, 4)
     CMD1( KEY_META('d'), KEY_NONE,
           "shell-delete-word", shell_write_char, KEY_META('d'))
-    CMD1( KEY_META(KEY_DEL), KEY_NONE,
-          "shell-backward-delete-word", shell_write_char, KEY_META(KEY_DEL))
+    CMD_( KEY_META(KEY_DEL), KEY_META(KEY_BS) ,
+          "shell-backward-delete-word", shell_write_char, ESi, "*ki")
     CMD_( KEY_META('p'), KEY_META('n'),
           "shell-history-search", shell_write_char, ESi, "*ki")
     CMD1( KEY_CTRL('i'), KEY_NONE,