[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Qemacs-commit] qemacs shell.c
From: |
Charlie Gordon |
Subject: |
[Qemacs-commit] qemacs shell.c |
Date: |
Sun, 13 Apr 2008 23:03:20 +0000 |
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,
- [Qemacs-commit] qemacs shell.c, Charlie Gordon, 2008/04/04
- [Qemacs-commit] qemacs shell.c, Charlie Gordon, 2008/04/04
- [Qemacs-commit] qemacs shell.c, Charlie Gordon, 2008/04/04
- [Qemacs-commit] qemacs shell.c, Charlie Gordon, 2008/04/08
- [Qemacs-commit] qemacs shell.c, Charlie Gordon, 2008/04/08
- [Qemacs-commit] qemacs shell.c, Charlie Gordon, 2008/04/10
- [Qemacs-commit] qemacs shell.c, Charlie Gordon, 2008/04/12
- [Qemacs-commit] qemacs shell.c, Charlie Gordon, 2008/04/12
- [Qemacs-commit] qemacs shell.c,
Charlie Gordon <=
- [Qemacs-commit] qemacs shell.c, Charlie Gordon, 2008/04/20