[mcclim-cvs] CVS mcclim/Drei - mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

14 Nov 2006

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv3441/Drei
Modified Files:
    basic-commands.lisp 
Log Message:
Reactivate the arrow keys.

--- /project/mcclim/cvsroot/mcclim/Drei/basic-commands.lisp	2006/11/14 10:31:37	1.2
+++ /project/mcclim/cvsroot/mcclim/Drei/basic-commands.lisp	2006/11/14 19:43:36	1.3
@@ -146,7 +146,7 @@
(set-key `(com-forward-object ,*numeric-argument-marker*)
     'movement-table
-	 '((#+mcclim :right #-mcclim :right-arrow)))
+	 '((#+(or mcclim building-mcclim) :right #-(or mcclim building-mcclim) :right-arrow)))
(set-key `(com-backward-object ,*numeric-argument-marker*)
     'movement-table
@@ -154,7 +154,7 @@
(set-key `(com-backward-object ,*numeric-argument-marker*)
     'movement-table
-	 '((#+mcclim :left #-mcclim :left-arrow)))
+	 '((#+(or mcclim building-mcclim) :left #-(or mcclim building-mcclim) :left-arrow)))
(set-key `(com-forward-word ,*numeric-argument-marker*)
     'movement-table
@@ -162,7 +162,7 @@
(set-key `(com-forward-word ,*numeric-argument-marker*)
     'movement-table
-	 '((#+mcclim :right #-mcclim :right-arrow :control)))
+	 '((#+(or mcclim building-mcclim) :right #-(or mcclim building-mcclim) :right-arrow :control)))
(set-key `(com-backward-word ,*numeric-argument-marker*)
     'movement-table
@@ -170,7 +170,7 @@
(set-key `(com-backward-word ,*numeric-argument-marker*)
     'movement-table
-	 '((#+mcclim :left #-mcclim :left-arrow :control)))
+	 '((#+(or mcclim building-mcclim) :left #-(or mcclim building-mcclim) :left-arrow :control)))
(set-key `(com-forward-line ,*numeric-argument-marker*)
     'movement-table
@@ -178,7 +178,7 @@
(set-key `(com-forward-line ,*numeric-argument-marker*)
     'movement-table
-	 '((#+mcclim :down #-mcclim :down-arrow)))
+	 '((#+(or mcclim building-mcclim) :down #-(or mcclim building-mcclim) :down-arrow)))
(set-key `(com-backward-line ,*numeric-argument-marker*)
     'movement-table
@@ -186,7 +186,7 @@
(set-key `(com-backward-line ,*numeric-argument-marker*)
     'movement-table
-	 '((#+mcclim :up #-mcclim :up-arrow)))
+	 '((#+(or mcclim building-mcclim) :up #-(or mcclim building-mcclim) :up-arrow)))
(set-key 'com-beginning-of-line
     'movement-table
@@ -218,7 +218,7 @@
(set-key `(com-backward-paragraph ,*numeric-argument-marker*)
     'movement-table
-	 '((#+mcclim :up #-mcclim :up-arrow :control)))
+	 '((#+(or mcclim building-mcclim) :up #-(or mcclim building-mcclim) :up-arrow :control)))
(set-key `(com-forward-paragraph ,*numeric-argument-marker*)
     'movement-table
@@ -226,7 +226,7 @@
(set-key `(com-forward-paragraph ,*numeric-argument-marker*)
     'movement-table
-	 '((#+mcclim :down #-mcclim :down-arrow :control)))
+	 '((#+(or mcclim building-mcclim) :down #-(or mcclim building-mcclim) :down-arrow :control)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;

    