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