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