maple/edit.c: vedit(): ve_key: Allow backspaces and refine delete…

…s in ANSI mode.
ccns · Dec 10, 2019 · d52ad44 · d52ad44
1 parent b37108a
commit d52ad44
Showing 1 changed file with 5 additions and 8 deletions.
diff --git a/maple/edit.c b/maple/edit.c
@@ -1875,14 +1875,11 @@ vedit(
 
             case Ctrl('H'):             /* backspace */
 
-                /* Thor: 在 ANSI 編輯模式下, 不可以按倒退, 不然會很可怕.... */
-
-                if (mode & VE_ANSI)
-                    goto ve_key;
 
                 if (col)
                 {
-                    delete_char(vln, ve_col = --col);
+                    ve_col = (mode & VE_ANSI) ? ansi2n(pos - 1, vln) : col - 1;
+                    delete_char(vln, ve_col);
                     continue;
                 }
 
@@ -1912,9 +1909,9 @@ vedit(
                 {
                     if (cc == 0)
                         goto ve_key;
-                    delete_char(vln, col);
-                    if (mode & VE_ANSI) /* Thor: 雖然增加 load, 不過edit 時會比較好看 */
-                        ve_col = ansi2n(n2ansi(col, vln), vln);
+                    /* Thor: 雖然增加 load, 不過edit 時會比較好看 */
+                    ve_col = (mode & VE_ANSI) ? ansi2n(pos, vln) : pos;
+                    delete_char(vln, ve_col);
                 }
                 continue;