[clim-desktop-cvs] CVS clim-desktop

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