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

[Christophe Rhodes]

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