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)))