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