Commit e516e661 authored by Troels Henriksen's avatar Troels Henriksen

Even if Swank tells us that :buffer is an awesome initarg, use :view

instead. Sorry, Swank.
parent 3b8361ba
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment