changed some shortcuts in input-buffer

2004-10-14 11:55:42 +00:00 · 2004-10-14 11:55:42 +00:00 · cfec39d156
parent 5a249d54d4
commit cfec39d156
1 changed files with 8 additions and 0 deletions
--- a/scheme/input-buffer.scm
+++ b/scheme/input-buffer.scm
@ -145,6 +145,14 @@
 	  (begin
 	    (set! pos-col (+ line-length 2)))))

+       ;;Ctrl+k -> Zeile löschen
+       ((= ch 11)
+	(if can-write
+	    (let ((text-front (sublist text 0 (- (length text) 1))))
+	      (begin
+		(set! text (append text-front '("")))
+		(set! pos-col 2)))))
+
       ;;Ctrl+f -> History-forward
       ((= ch 6)
 	(if can-write