Changeset b68f9cd

Timestamp:

Jun 30, 2002, 1:41:05 PM (21 years ago)

Author:

Erik Nygren <nygren@mit.edu>

Branches:

master, barnowl_perlaim, debian, owl, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

262422c

Parents:

e75011e

Message:

	Added "edit:delete-prev-word" command and bound M-BACKSPACE to it.

Files:

• ChangeLog (modified) (1 diff)
• commands.c (modified) (1 diff)
• editwin.c (modified) (1 diff)
• keys.c (modified) (1 diff)

ChangeLog

@@ -11 +11 @@
         Fixed a bug in the summary field for user-created aliases
         Added "reply zaway" which sends a zaway response to the current msg.
+        Added "edit:delete-prev-word" command and bound M-BACKSPACE to it.
                 
 1.2.1-pre-1

commands.c

@@ -542 +542 @@
                   OWL_CTX_EDIT,
                   "deletes the word to the right of the cursor",
+                  "", ""),
+
+  OWLCMD_VOID_CTX("edit:delete-prev-word", owl_editwin_delete_previousword,
+                  OWL_CTX_EDIT,
+                  "deletes the word to the left of the cursor",
                   "", ""),
 

editwin.c

@@ -614 +614 @@
 }
 
+void owl_editwin_delete_previousword(owl_editwin *e) {
+  /* go backwards to the last non-space character, then delete chars */
+  int i, startpos, endpos;
+
+  startpos = _owl_editwin_get_index_from_xy(e);
+  owl_editwin_move_to_previousword(e);
+  endpos = _owl_editwin_get_index_from_xy(e);
+  for (i=0; i<startpos-endpos; i++) {
+    owl_editwin_delete_char(e);
+  }
+}
+
 void owl_editwin_delete_to_endofline(owl_editwin *e) {
   int i;

keys.c

@@ -58 +58 @@
   BIND_CMD("C-e",         "edit:move-to-line-end", "");
 
+  BIND_CMD("M-DELETE",    "edit:delete-prev-word", "");
   BIND_CMD("M-d",         "edit:delete-next-word", "");
   BIND_CMD("M-[ 3 ; 3 ~", "edit:delete-next-word", "");