Nikodemus Siivola <[EMAIL PROTECTED]> writes:
> Nikodemus Siivola <[EMAIL PROTECTED]> writes:
>
>> (+ "1" 1 "1") ; => 4
> ^- 3, of course
>
> I really need to make a binding for "eval-sexp-and-insert-result".
fwiw here's what i use:
(defun mb:eval-in-lisp-insert ()
(interactive)
(lexical-let ((current-buffer (current-buffer)))
(slime-eval-with-transcript
`(swank:interactive-eval ,(slime-last-expression))
`(lambda (value)
(with-current-buffer ,current-buffer
(just-one-space)
(insert value))))))
--
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
-Leonard Cohen
_______________________________________________
Gardeners mailing list
[email protected]
http://www.lispniks.com/mailman/listinfo/gardeners
