[climacs-cvs] CVS climacs - climacs-cvs@common-lisp.net - mailman3.common-lisp.net

7 Jan 2008

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv9921
Modified Files:
    climacs-lisp-syntax.lisp 
Log Message:
Even if Swank tells us that :buffer is an awesome initarg, use :view
instead. Sorry, Swank.

--- /project/climacs/cvsroot/climacs/climacs-lisp-syntax.lisp	2007/12/27 16:27:25	1.8
+++ /project/climacs/cvsroot/climacs/climacs-lisp-syntax.lisp	2008/01/07 16:59:20	1.9
@@ -123,7 +123,9 @@
                        (:file 'file-location)
                        (:buffer 'view-location)
                        (:source-form 'source-location))
-                     buf))
+                     (case (first buf)
+                       (:buffer (cons :view (rest buf)))
+                       (t buf))))
              (position
               (funcall
                (ecase (first pos)

    