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

[Christophe Rhodes]

Update of /project/gsharp/cvsroot/gsharp
In directory common-lisp.net:/tmp/cvs-serv4816

Modified Files:
	esa.lisp 
Log Message:
Sync with climacs.

Date: Sat Oct 29 00:16:37 2005
Author: crhodes

Index: gsharp/esa.lisp
diff -u gsharp/esa.lisp:1.6 gsharp/esa.lisp:1.7
--- gsharp/esa.lisp:1.6	Fri Oct 28 18:20:47 2005
+++ gsharp/esa.lisp	Sat Oct 29 00:16:37 2005
@@ -322,7 +322,16 @@
 	    command table :keystroke gesture :errorp nil)
 	   (when (and (listp gesture)
 		      (find :meta gesture))
-	     (set-key command table (list (list :escape) (remove :meta gesture)))))
+             ;; KLUDGE: this is a workaround for poor McCLIM
+             ;; behaviour; really this canonization should happen in
+             ;; McCLIM's input layer.
+	     (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))))))