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