[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv13351

Modified Files:
	climacs-lisp-syntax.lisp climacs-lisp-syntax-commands.lisp 
Log Message:
I broke the Swank-using code, now unbroke it.


--- /project/climacs/cvsroot/climacs/climacs-lisp-syntax.lisp	2007/12/08 08:55:06	1.6
+++ /project/climacs/cvsroot/climacs/climacs-lisp-syntax.lisp	2007/12/11 18:46:53	1.7
@@ -286,7 +286,7 @@
                                      (form-to-object syntax token
                                       :read t
                                       :package (package-at-mark syntax mark))
-                                     syntax m)
+                                     view m)
             (show-note-counts notes (second result))
             (when (not (null notes))
               (show-notes notes (name view)
--- /project/climacs/cvsroot/climacs/climacs-lisp-syntax-commands.lisp	2007/12/08 08:55:06	1.6
+++ /project/climacs/cvsroot/climacs/climacs-lisp-syntax-commands.lisp	2007/12/11 18:46:53	1.7
@@ -78,12 +78,12 @@
     ()
   "Compile and load the current file.
 
-Compiler notes will be displayed in a seperate buffer."
-  (compile-file-interactively (current-buffer) t))
+Compiler notes will be displayed in a seperate view."
+  (compile-file-interactively (current-view) t))
 
 (define-command (com-compile-file :name t :command-table climacs-lisp-table)
     ()
-  "Compile the file open in the current buffer.
+  "Compile the file open in the current view.
 
 This command does not load the file after it has been compiled."
   (compile-file-interactively (current-view) nil))