[climacs-cvs] CVS update: climacs/esa.lisp climacs/gui.lisp

[Robert Strandh]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv9411

Modified Files:
	esa.lisp gui.lisp 
Log Message:
Fixed a bug that made extended commands unavailable.


Date: Fri Jul 22 15:15:47 2005
Author: rstrandh

Index: climacs/esa.lisp
diff -u climacs/esa.lisp:1.8 climacs/esa.lisp:1.9
--- climacs/esa.lisp:1.8	Fri Jul 22 09:05:44 2005
+++ climacs/esa.lisp	Fri Jul 22 15:15:47 2005
@@ -81,7 +81,7 @@
    (recorded-keys :initform '() :accessor recorded-keys)
    (remaining-keys :initform '() :accessor remaining-keys)
    ;; temporary hack.  The command table should be buffer or pane specific
-   (command-table :initarg :command-table :reader command-table)))
+   (esa-command-table :initarg :esa-command-table :reader command-table)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; 
@@ -371,7 +371,7 @@
   (let ((frame (make-application-frame
 		'example
 		:width width :height height
-		:command-table 'global-example-table)))
+		:esa-command-table 'global-example-table)))
     (run-frame-top-level frame)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.162 climacs/gui.lisp:1.163
--- climacs/gui.lisp:1.162	Fri Jul 22 07:35:06 2005
+++ climacs/gui.lisp	Fri Jul 22 15:15:47 2005
@@ -92,7 +92,7 @@
   "Starts up a climacs session"
   (let ((frame (make-application-frame
 		'climacs :width width :height height
-		:command-table 'global-climacs-table)))
+		:esa-command-table 'global-climacs-table)))
     (run-frame-top-level frame)))
 
 (defun display-info (frame pane)