[climacs-cvs] CVS update: climacs/esa.lisp

[Dave Murray]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv7791

Modified Files:
	esa.lisp 
Log Message:
Fixed set-key to allow for mcclim's treatment of the
:shift modifier in the :esc command tables.

Date: Sun Oct 16 15:56:51 2005
Author: dmurray

Index: climacs/esa.lisp
diff -u climacs/esa.lisp:1.18 climacs/esa.lisp:1.19
--- climacs/esa.lisp:1.18	Tue Sep 13 21:23:59 2005
+++ climacs/esa.lisp	Sun Oct 16 15:56:50 2005
@@ -328,7 +328,13 @@
 	    command table :keystroke gesture :errorp nil)
 	   (when (and (listp gesture)
 		      (find :meta gesture))
-	     (set-key command table (list (list :escape) (remove :meta gesture)))))
+	     (set-key command table
+		      (list (list :escape)
+			    (let ((esc-list (remove :meta gesture)))
+			      (if (and (= (length esc-list) 2)
+				       (find :shift esc-list))
+				  (remove :shift esc-list)
+				  esc-list))))))
 	  (t (set-key command
 		      (ensure-subtable table gesture)
 		      (cdr gestures))))))