在哪里/如何存储文本，如果不在kill-ring/寄存器中[elisp，emacs]

Question

我希望能够将文本存储在两个位置之间(中间的字符串)，但我不知道在哪里方便地存储它，可能只是本地存储，甚至是全局存储(let或setq)。答案可能就在那里，但我找不到。

示例：

我希望将文本存储在符号中，以便向后搜索。假设区域从(point)到第一个空格字符。

我以前的方法是使用(kill-ring-save)，但我知道这是一个糟糕的做法。

从(这里)(message "hello")(点)

我对做这件事的更好的技术感兴趣，也对存储(point)周围的字符串的最佳方法感兴趣。

Answer 1

如果您只需要一个临时的本地作用域，那么您肯定想要使用let。

否则，您通常会定义一个变量(在命名时请记住，elisp没有名称空间，因此最佳实践是在实际情况下为给定库中的所有符号名称使用唯一可靠的前缀)。

(defvar SYMBOL &optional INITVALUE DOCSTRING)

如果省略INITVALUE参数，变量最初将不会被绑定，但会确保变量在使用后将使用动态绑定。

然后，您只需根据需要对变量执行setq。

编辑：

要获取两个点之间的缓冲区内容，请使用以下任一方法

• (buffer-substring START END)
• (buffer-substring-no-properties START END)

取决于您是否希望保留文本属性。

Answer 2

通常最简单的答案就是直接使用let。与您似乎认为的相反，它并不分配全局存储。事实上，它做的恰恰相反。

(let ((myvalue "temporary string"))
  (message myvalue) )
=> "temporary string"

myvalue
=> Lisp error: (void-variable myvalue)

而且，您可以很容易地使用变量编写函数，该变量的值仅在函数执行期间设置。interactive表单允许您轻松地获取点和标记值。

(defun mysearch (point mark)
  (interactive "r")
  (let ((str (buffer-substring-no-properties point mark))
    (message "your search for %s can commence ..." str) ) )

一种常见的习惯用法是使用save-excursion将指针移动到另一个地方，然后获取原始位置和结束位置之间的区域，然后对其执行某些操作。当您退出save-excursion时，光标的位置(以及其他几项内容)将恢复到以前的状态。

(defun mysearch ()
  (interactive)
  (save-excursion
    (let ((here (point)) str)
      (forward-word -1)
      (setq str (buffer-substring-no-properties (point) here))
      (message "your search for %s can commence ..." str) ) ) )

也许您还想看看http://ergoemacs.org/emacs/elisp_idioms.html

如果您需要在函数调用之间持久化值，那么通常要做的就是像@phils建议的那样defvar一个变量。几个带有相同前缀的变量听起来像是您应该为自己创建一个单独的模块。对于名称空间占用较少的灵活解决方案，可以创建自己的obarray (并获得某种大师身份)。另请参阅http://www.gnu.org/software/emacs/manual/html_node/elisp/Creating-Symbols.html#Definition%20of%20mapatoms