evalのすべての行と、私はこのコードのスニペット持っ

Question

ラインに結果を追加します。

Wrong type argument: commandp, (lambda nil (let ((result (eval (read (buffer-substring (point-at-bol) (point-at-eol))))) (goto-char (point-at-eol)))) (insert (format " ; => %s" result))) 

Answer 1

このコマンドは、1行単位で機能するべきではありません。代りにポイントを移動する。

Hereは基本的にこれを行うライブラリですが、マルチライン の結果で動作し、リエントラントです。だから、いくつかのものを変更して、 コマンドを再実行して結果を更新することができます。

EDIT：記載されたパッケージへの正しいリンク。

Answer 2

が解決にとして、それは動作しません

(define-key lisp-interaction-mode-map (kbd "C-c C-e") 
    (lambda() 
    (let ((result (eval (read (buffer-substring 
           (point-at-bol) (point-at-eol))))) 
      (goto-char (point-at-eol)))) 
    (insert (format " ; => %s" result)))) 

を。

(define-key lisp-interaction-mode-map (kbd "C-c C-e") 
    (lambda() 
    (interactive) 
    (let ((result (eval (read (buffer-substring 
           (point-at-bol) (point-at-eol)))))) 
     (goto-char (point-at-eol)) 
     (insert (format " ; ⇒ %s" result)))))