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