emacs bindings: added M-d (kill word)

[quassel.git] / src / uisupport / multilineedit.cpp

diff --git a/src/uisupport/multilineedit.cpp b/src/uisupport/multilineedit.cpp
index 871f47a..ab1834f 100644 (file)
--- a/src/uisupport/multilineedit.cpp
+++ b/src/uisupport/multilineedit.cpp
@@ -338,12 +338,6 @@ void MultiLineEdit::keyPressEvent(QKeyEvent *event) {
       case Qt::Key_B:
         moveCursor(QTextCursor::Left);
         return;
-      case Qt::Key_Right:
-        moveCursor(QTextCursor::WordRight);
-        return;
-      case Qt::Key_Left:
-        moveCursor(QTextCursor::WordLeft);
-        return;
 
         // modify
       case Qt::Key_Y:
@@ -355,7 +349,9 @@ void MultiLineEdit::keyPressEvent(QKeyEvent *event) {
         return;
       }
     }
-    else if(event->modifiers() & Qt::MetaModifier) {
+    else if(event->modifiers() & Qt::MetaModifier ||
+            event->modifiers() & Qt::AltModifier)
+    {
       switch(event->key()) {
       case Qt::Key_Right:
         moveCursor(QTextCursor::WordRight);
@@ -375,6 +371,12 @@ void MultiLineEdit::keyPressEvent(QKeyEvent *event) {
       case Qt::Key_Greater:
         moveCursor(QTextCursor::End);
         return;
+
+        // modify
+      case Qt::Key_D:
+        moveCursor(QTextCursor::WordRight, QTextCursor::KeepAnchor);
+        cut();
+        return;
       }
     }
   }