[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

Update of /project/clim-desktop/cvsroot/clim-desktop
In directory clnet:/tmp/cvs-serv27281

Modified Files:
	climacs.lisp 
Log Message:
Added Inspect Syntax convenience command.


--- /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp	2006/05/18 21:32:15	1.3
+++ /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp	2006/05/19 10:03:11	1.4
@@ -39,6 +39,9 @@
 (define-command (com-inspect-window :name "Inspect Current Window" :command-table base-table) ()
 		(clouseau:inspector (current-window)))
 
+(define-command (com-inspect-syntax :name "Inspect Syntax" :command-table base-table) ()
+		(clouseau:inspector (current-window)))
+
 (set-key 'com-inspect-buffer
 	 'base-table
 	 '((#\c :control) (#\d :control) (#\b :control)))
@@ -47,6 +50,10 @@
 	 'base-table
 	 '((#\c :control) (#\d :control) (#\w :control)))
 
+(set-key 'com-inspect-syntax
+	 'base-table
+	 '((#\c :control) (#\d :control) (#\s :control)))
+
 (defun climacs-edit (file &key (width 900) (height 400))
   "Starts up a climacs session"
   (let ((frame (make-application-frame 'climacs :width width :height height)))