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