[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

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

Modified Files:
	climacs.lisp 
Log Message:
Fixed Inspect Syntax command.


--- /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp	2006/05/19 10:03:11	1.4
+++ /project/clim-desktop/cvsroot/clim-desktop/climacs.lisp	2006/05/20 18:41:27	1.5
@@ -40,7 +40,7 @@
 		(clouseau:inspector (current-window)))
 
 (define-command (com-inspect-syntax :name "Inspect Syntax" :command-table base-table) ()
-		(clouseau:inspector (current-window)))
+		(clouseau:inspector (syntax (current-buffer))))
 
 (set-key 'com-inspect-buffer
 	 'base-table