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

Modified Files: esa.lisp Log Message: Sync esa with climacs; M-x now works properly again.

Date: Mon Nov 14 21:49:35 2005 Author: crhodes

Index: gsharp/esa.lisp diff -u gsharp/esa.lisp:1.10 gsharp/esa.lisp:1.11 --- gsharp/esa.lisp:1.10 Mon Nov 14 15:27:32 2005 +++ gsharp/esa.lisp Mon Nov 14 21:49:34 2005 @@ -379,8 +379,7 @@ () (let ((item (handler-case (accept - `(command :command-table - ,(command-table (car (windows *application-frame*)))) + `(command :command-table ,(find-applicable-command-table *application-frame*)) :prompt "Extended Command") (error () (progn (beep) (display-message "No such command")