Thu Nov  3 15:42:00 CET 2005  Norbert@Nemec-online.de
  * selection handling
Index: TeXmacs-1.0.6-static-gnu-linux/progs/generic/generic-edit.scm
===================================================================
--- TeXmacs-1.0.6-static-gnu-linux.orig/progs/generic/generic-edit.scm	2005-12-02 19:06:49.000000000 +0100
+++ TeXmacs-1.0.6-static-gnu-linux/progs/generic/generic-edit.scm	2006-10-20 15:52:47.918204750 +0200
@@ -21,14 +21,14 @@
 ;; Basic editing via the keyboard
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(tm-define (kbd-left) (go-left))
-(tm-define (kbd-right) (go-right))
-(tm-define (kbd-up) (go-up))
-(tm-define (kbd-down) (go-down))
-(tm-define (kbd-page-up) (go-page-up))
-(tm-define (kbd-page-down) (go-page-down))
-(tm-define (kbd-start-line) (go-start-line))
-(tm-define (kbd-end-line) (go-end-line))
+(tm-define (kbd-left) (selection-cancel) (go-left))
+(tm-define (kbd-right) (selection-cancel) (go-right))
+(tm-define (kbd-up) (selection-cancel) (go-up))
+(tm-define (kbd-down) (selection-cancel) (go-down))
+(tm-define (kbd-page-up) (selection-cancel) (go-page-up))
+(tm-define (kbd-page-down) (selection-cancel) (go-page-down))
+(tm-define (kbd-start-line) (selection-cancel) (go-start-line))
+(tm-define (kbd-end-line) (selection-cancel) (go-end-line))
 
 (tm-define (kbd-select r)
   (select-from-shift-keyboard)
@@ -41,7 +41,8 @@
 (tm-define (kbd-remove forward?) (remove-text forward?))
 (tm-define (kbd-remove forward?)
   (:mode with-active-selection?)
-  (clipboard-cut "primary"))
+  (clipboard-cut "nowhere")
+  (clipboard-clear "nowhere"))
 
 (tm-define (kbd-tab)
   (if (not (complete-try?))
Index: TeXmacs-1.0.6-static-gnu-linux/progs/generic/generic-kbd.scm
===================================================================
--- TeXmacs-1.0.6-static-gnu-linux.orig/progs/generic/generic-kbd.scm	2005-12-02 19:06:49.000000000 +0100
+++ TeXmacs-1.0.6-static-gnu-linux/progs/generic/generic-kbd.scm	2006-10-20 15:52:47.918204750 +0200
@@ -56,14 +56,14 @@
   ("end" (kbd-end-line))
   ("pageup" (kbd-page-up))
   ("pagedown" (kbd-page-down))
-  ("S-left" (kbd-select kbd-left))
-  ("S-right" (kbd-select kbd-right))
-  ("S-up" (kbd-select kbd-up))
-  ("S-down" (kbd-select kbd-down))
-  ("S-home" (kbd-select kbd-start-line))
-  ("S-end" (kbd-select kbd-end-line))
-  ("S-pageup" (kbd-select kbd-page-up))
-  ("S-pagedown" (kbd-select kbd-page-down))
+  ("S-left" (kbd-select go-left))
+  ("S-right" (kbd-select go-right))
+  ("S-up" (kbd-select go-up))
+  ("S-down" (kbd-select go-down))
+  ("S-home" (kbd-select go-start-line))
+  ("S-end" (kbd-select go-end-line))
+  ("S-pageup" (kbd-select go-page-up))
+  ("S-pagedown" (kbd-select go-page-down))
   ("C-left" (traverse-left))
   ("C-right" (traverse-right))
   ("C-up" (traverse-up))
