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)