Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv5400/Drei
Modified Files:
basic-commands.lisp core-commands.lisp misc-commands.lisp
search-commands.lisp unicode-commands.lisp
Log Message:
Filter shift modifier state in CLX backend.
Also updated a bunch of key bindings to not specify :SHIFT anymore.
--- /project/mcclim/cvsroot/mcclim/Drei/basic-commands.lisp 2008/02/03 08:55:01 1.13
+++ /project/mcclim/cvsroot/mcclim/Drei/basic-commands.lisp 2008/04/28 20:48:55 1.14
@@ -242,7 +242,7 @@
(set-key `(com-backward-paragraph ,*numeric-argument-marker*)
'movement-table
- '((#\{ :shift :meta)))
+ '((#\{ :meta)))
(set-key `(com-backward-paragraph ,*numeric-argument-marker*)
'movement-table
@@ -250,7 +250,7 @@
(set-key `(com-forward-paragraph ,*numeric-argument-marker*)
'movement-table
- '((#\} :shift :meta)))
+ '((#\} :meta)))
(set-key `(com-forward-paragraph ,*numeric-argument-marker*)
'movement-table
--- /project/mcclim/cvsroot/mcclim/Drei/core-commands.lisp 2008/02/03 07:16:49 1.17
+++ /project/mcclim/cvsroot/mcclim/Drei/core-commands.lisp 2008/04/28 20:48:55 1.18
@@ -156,7 +156,7 @@
(set-key `(com-mark-word ,*numeric-argument-marker*)
'marking-table
- '((#\@ :meta :shift)))
+ '((#\@ :meta)))
(set-key `(com-mark-paragraph ,*numeric-argument-marker*)
'marking-table
@@ -264,7 +264,7 @@
(set-key 'com-delete-indentation
'indent-table
- '((#\^ :shift :meta)))
+ '((#\^ :meta)))
(define-command (com-auto-fill-mode :name t :command-table fill-table) ()
(let ((view (current-view)))
@@ -297,7 +297,7 @@
(set-key 'com-beginning-of-buffer
'movement-table
- '((#\< :shift :meta)))
+ '((#\< :meta)))
(set-key 'com-beginning-of-buffer
'movement-table
@@ -331,7 +331,7 @@
(set-key 'com-end-of-buffer
'movement-table
- '((#\> :shift :meta)))
+ '((#\> :meta)))
(set-key 'com-end-of-buffer
'movement-table
@@ -510,7 +510,7 @@
(set-key 'com-undo
'editing-table
- '((#\_ :shift :control)))
+ '((#\_ :control)))
(set-key 'com-undo
'editing-table
@@ -522,7 +522,7 @@
(set-key 'com-redo
'editing-table
- '((#\_ :shift :meta)))
+ '((#\_ :meta)))
(set-key 'com-redo
'editing-table
--- /project/mcclim/cvsroot/mcclim/Drei/misc-commands.lisp 2007/12/19 11:02:01 1.4
+++ /project/mcclim/cvsroot/mcclim/Drei/misc-commands.lisp 2008/04/28 20:48:55 1.5
@@ -68,7 +68,7 @@
(set-key `(com-eval-expression ,*unsupplied-argument-marker* ,*numeric-argument-marker*)
'editor-table
- '((#\: :shift :meta)))
+ '((#\: :meta)))
(set-key 'com-count-lines-page
'info-table
--- /project/mcclim/cvsroot/mcclim/Drei/search-commands.lisp 2008/04/18 11:22:29 1.9
+++ /project/mcclim/cvsroot/mcclim/Drei/search-commands.lisp 2008/04/28 20:48:55 1.10
@@ -393,7 +393,7 @@
(set-key 'com-query-replace
'search-table
- '((#\% :shift :meta)))
+ '((#\% :meta)))
(define-command (com-query-replace-replace :name t :command-table query-replace-drei-table) ()
(let ((state (query-replace-state (drei-instance))))
--- /project/mcclim/cvsroot/mcclim/Drei/unicode-commands.lisp 2007/12/19 11:02:01 1.2
+++ /project/mcclim/cvsroot/mcclim/Drei/unicode-commands.lisp 2008/04/28 20:48:55 1.3
@@ -49,11 +49,11 @@
(set-dead-grave-key (code &rest sequence)
`(set-charcode-key ,code ((:dead-grave) ,@sequence)))
(set-dead-diaresis-key (code &rest sequence)
- `(set-charcode-key ,code ((:dead-diaresis :shift) ,@sequence)))
+ `(set-charcode-key ,code ((:dead-diaeresis) ,@sequence)))
(set-dead-tilde-key (code &rest sequence)
- `(set-charcode-key ,code ((:dead-tilde :shift) ,@sequence)))
+ `(set-charcode-key ,code ((:dead-tilde) ,@sequence)))
(set-dead-circumflex-key (code &rest sequence)
- `(set-charcode-key ,code ((:dead-circumflex :shift) ,@sequence))))
+ `(set-charcode-key ,code ((:dead-circumflex) ,@sequence))))
(set-dead-acute-key 193 (#\A))
(set-dead-acute-key 201 (#\E))
(set-dead-acute-key 205 (#\I))