[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	climacs-lisp-syntax.lisp 
Log Message:
Updated to work with changes in Drei's Lisp syntax module.


--- /project/climacs/cvsroot/climacs/climacs-lisp-syntax.lisp	2006/12/10 19:44:56	1.3
+++ /project/climacs/cvsroot/climacs/climacs-lisp-syntax.lisp	2007/08/13 21:58:57	1.4
@@ -274,25 +274,26 @@
         (insert-object point #\Newline)))))
 
 (defun compile-definition-interactively (mark syntax)
-  (let* ((token (definition-at-mark mark syntax))
+  (let* ((token (definition-at-mark syntax mark))
          (string (form-string syntax token))
          (m (clone-mark mark))
          (buffer-name (name (buffer syntax)))
          (*read-base* (base syntax)))
     (with-syntax-package (syntax mark)
-      (forward-definition m syntax)
-      (backward-definition m syntax)
-      (multiple-value-bind (result notes)
-          (compile-form-for-drei (get-usable-image syntax)
-                                 (form-to-object syntax token
-                                                  :read t
-                                                  :package (package-at-mark syntax mark))
-                                 (buffer syntax)
-                                 m)
-        (show-note-counts notes (second result))
-        (when (not (null notes))
-          (show-notes notes buffer-name
-                      (one-line-ify (subseq string 0 (min (length string) 20)))))))))
+      (forward-definition m syntax 1 nil)
+      (if (backward-definition m syntax 1 nil)
+          (multiple-value-bind (result notes)
+              (compile-form-for-drei (get-usable-image syntax)
+                                     (form-to-object syntax token
+                                      :read t
+                                      :package (package-at-mark syntax mark))
+                                     (buffer syntax)
+                                     m)
+            (show-note-counts notes (second result))
+            (when (not (null notes))
+              (show-notes notes buffer-name
+                          (one-line-ify (subseq string 0 (min (length string) 20))))))
+          (display-message "No definition at point")))))
 
 (defun compile-file-interactively (buffer &optional load-p)
   (cond ((null (filepath buffer))