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))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;