From thenriksen at common-lisp.net  Mon Apr 28 20:50:11 2008
From: thenriksen at common-lisp.net (thenriksen)
Date: Mon, 28 Apr 2008 16:50:11 -0400 (EDT)
Subject: [climacs-cvs] CVS climacs
Message-ID: <20080428205011.B55B5340DA@common-lisp.net>

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