emacs - 在 Emacs 中将提取的文本保存为字符串

Question

我正在尝试将提取的文本存储到 Emacs 中的变量中。

看起来像以下作品:

(let ((str nil))
  (with-temp-buffer
    (yank)
    (setq str (buffer-string)))

我想知道，有没有更简单的方法来实现这一目标？似乎只是为了获取被拉取的文本而打开一个临时缓冲区是矫枉过正的。

Answer 1

您在函数中寻找的值可作为

(car kill-ring)

这应该有效:

(defun was-yanked ()
  "When called after a yank, store last yanked value in let-bound yanked. "
  (interactive)
  (let (yanked)
    (and (eq last-command 'yank)
         (setq yanked (car kill-ring))))

也许消息并返回它:

(defun was-yanked ()
  "When called after a yank, store last yanked value in let-bound yanked. "
  (interactive)
  (let (yanked)
    (and (eq last-command 'yank)
         (setq yanked (car kill-ring))))
  (when (interactive-p) (message "%s" yanked))
  yanked)