Index: gui.lisp
===================================================================
RCS file: /project/climacs/cvsroot/climacs/gui.lisp,v
retrieving revision 1.166
diff -u -r1.166 gui.lisp
--- gui.lisp	26 Jul 2005 05:28:39 -0000	1.166
+++ gui.lisp	28 Jul 2005 19:19:24 -0000
@@ -52,6 +52,8 @@
 (define-application-frame climacs (standard-application-frame
 				   esa-frame-mixin)
   ((buffers :initform '() :accessor buffers))
+  (:command-table (global-climacs-table :inherit-from (global-esa-table)))
+  (:menu-bar nil)
   (:panes
    (win (let* ((extended-pane 
 		(make-pane 'extended-pane
@@ -159,9 +161,6 @@
 	do (when (modified-p buffer)
 	     (setf (needs-saving buffer) t))))	
 
-(make-command-table 'global-climacs-table :errorp nil
-		    :inherit-from '(global-esa-table keyboard-macro-table))
-
 (defmacro define-named-command (command-name args &body body)
   `(define-command ,(if (listp command-name)
 			`(,@command-name :name t :command-table global-climacs-table)
@@ -1232,7 +1231,7 @@
                   :gesture :select-other
                   :tester-definitive t
                   :menu nil
-                  :priority 11)
+                  :priority 10)
     (object)
   object)
 
@@ -1243,7 +1242,7 @@
   (display-message (format nil "~s" (accept 'symbol))))	 
 
 (define-named-command com-accept-lisp-string ()
-  (display-message (format nil "~s" (accept 'climacs-lisp-syntax::lisp-string))))
+  (display-message (format nil "~s" (accept 'lisp-string))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; 
Index: lisp-syntax.lisp
===================================================================
RCS file: /project/climacs/cvsroot/climacs/lisp-syntax.lisp,v
retrieving revision 1.17
diff -u -r1.17 lisp-syntax.lisp
--- lisp-syntax.lisp	26 Jul 2005 05:28:39 -0000	1.17
+++ lisp-syntax.lisp	28 Jul 2005 19:19:30 -0000
@@ -1143,9 +1143,6 @@
 (define-presentation-type lisp-string () 
                           :description "lisp string")
 
-;(define-presentation-method presentation-typep (object (type lisp-string))
-;  (stringp object))
-
 (defmethod display-parse-tree ((parse-symbol complete-string-form) (syntax lisp-syntax) pane)
   (let ((children (children parse-symbol)))
     (if (third children)
Index: packages.lisp
===================================================================
RCS file: /project/climacs/cvsroot/climacs/packages.lisp,v
retrieving revision 1.70
diff -u -r1.70 packages.lisp
--- packages.lisp	26 Jul 2005 05:28:39 -0000	1.70
+++ packages.lisp	28 Jul 2005 19:19:30 -0000
@@ -164,7 +164,7 @@
 (defpackage :climacs-lisp-syntax
   (:use :clim-lisp :clim :climacs-buffer :climacs-base 
 	:climacs-syntax :flexichain :climacs-pane)
-  (:export))
+  (:export :lisp-string))
 
 (defpackage :esa
   (:use :clim-lisp :clim)
@@ -179,5 +179,6 @@
 
 (defpackage :climacs-gui
   (:use :clim-lisp :clim :climacs-buffer :climacs-base :climacs-abbrev :climacs-syntax
-	:climacs-kill-ring :climacs-pane :clim-extensions :undo :esa))
+	:climacs-kill-ring :climacs-pane :clim-extensions :undo :esa)
+  (:import-from :climacs-lisp-syntax :lisp-string))
 
