inferior lisp - eval buffer

inferior lisp - eval buffer

[Mark Carter]

I would like to create an interactive function that evaluates a buffer
to an inferior lisp.

I presume it's going to look something like:

(defun eval-lisp-buffer ()
  (interactive)
  (lisp-eval-region something something))

Please help.

Re: inferior lisp - eval buffer

[Pascal J. Bourguignon]

Mark Carter <alt.mcarter@gmail.com> writes:

> I would like to create an interactive function that evaluates a buffer
> to an inferior lisp.
>
> I presume it's going to look something like:
>
> (defun eval-lisp-buffer ()
>   (interactive)
>   (lisp-eval-region something something))


Yes.  I have:


(defun lisp-eval-last-sexp (&optional and-go)
  "Send the previous sexp to the inferior Lisp process.
Prefix argument means switch to the Lisp buffer afterwards."
  (interactive "P")
  (lisp-eval-region (save-excursion (backward-sexp) (point))
                    (point)
                    and-go))

in my ~/.emacs, along with:

(add-hook 'lisp-mode-hook
          (lambda () (local-set-key (kbd "C-x C-e") 'lisp-eval-last-sexp)))



For the while buffer,  you'd use (point-min) and (point-max), I guess,
but I'm not sure lisp-eval-region can take several sexps.  Check it.



-- 
__Pascal Bourguignon__                     http://www.informatimago.com/
A bad day in () is better than a good day in {}.