Question

我有这段代码：

(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))))

但它不起作用，如

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

此命令不应基于每行运行。改为通过sexp移动点。

Here是我创建的基本上可以做到的库，但可以使用多行结果，并且是可重入的。所以你可以改变一些东西，并重新运行命令更新结果。

编辑：正确链接到提到的包。

Answer 2

解决。

(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)))))

评估暂存缓冲区中的每一行并将结果附加到该行

2 个答案: