リージョン選択範囲、もしくは現在行のLisp 式を(1つ)読み込み、評価した結果を、次行に挿入する

eval-print-region.el

(defun eval-print-region ()
  (interactive)
  (let ((f (lambda (s e)
              (print (eval (read (replace-regexp-in-string "," "" (buffer-substring s e)))) (current-buffer)))))
    (if (region-active-p)
        ;; リージョン全体
        (funcall f (region-beginning) (region-end))
      ;; カーソルのある行全体
      (progn (end-of-line)
             (funcall f (point-at-bol) (point-at-eol))))))
(define-key global-map (kbd "C-=") 'eval-print-region)

テキストモードでふと「この計算式を評価したい」というときがある。

M-:としてミニバッファで評価しても、結果は見れるだけで、コピーされない。

そこで