Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv5792

Modified Files: misc-commands.lisp structured-editing.lisp window-commands.lisp Log Message: Explicitly specifying :SHIFT is not required anymore.

--- /project/climacs/cvsroot/climacs/misc-commands.lisp 2007/12/15 10:17:11 1.30 +++ /project/climacs/cvsroot/climacs/misc-commands.lisp 2008/04/28 20:50:11 1.31 @@ -39,7 +39,7 @@

(set-key 'com-not-modified 'buffer-table - '((#~ :meta :shift))) + '((#~ :meta)))

(define-command (com-what-cursor-position :name t :command-table info-table) () "Print information about point. --- /project/climacs/cvsroot/climacs/structured-editing.lisp 2008/01/11 02:15:08 1.2 +++ /project/climacs/cvsroot/climacs/structured-editing.lisp 2008/04/28 20:50:11 1.3 @@ -259,7 +259,7 @@

(set-key `(com-wrap-expression ,*numeric-argument-marker*) 'structedit-table - '((#( :meta :shift))) + '((#( :meta)))

(set-key 'com-close-list-and-newline 'structedit-table @@ -279,7 +279,7 @@

(set-key `(com-wrap-expression-in-doublequote ,*numeric-argument-marker*) 'structedit-table - '((#" :meta :shift))) + '((#" :meta)))

(set-key `(com-splice-list ,*numeric-argument-marker*) 'structedit-table --- /project/climacs/cvsroot/climacs/window-commands.lisp 2008/01/29 23:09:23 1.19 +++ /project/climacs/cvsroot/climacs/window-commands.lisp 2008/04/28 20:50:11 1.20 @@ -164,7 +164,7 @@

(set-key 'com-scroll-other-window-up 'window-table - '((#\V :control :meta :shift))) + '((#\V :control :meta)))

(define-command (com-delete-window :name t :command-table window-table) () (delete-window))