如何在 Emacs Lisp 中以编程方式获取区域（选择）？

Question

我需要访问 Emacs 缓冲区中的选择。 我找到了这篇文章How do I access the contents of the current region in Emacs Lisp? 对我帮助很大。

但是有一个问题。第一次选择（突出显示）一个区域时，它可以正常工作，但是当我按 Cg 并将光标正常移动到另一个位置而不突出显示任何字符时，我得到了一个从最后一个标记到当前点的字符串，而我期望一个空的.

实际上我需要实现一个函数，它将当前选择（突出显示）作为字符串返回，如果没有突出显示，则返回空字符串。下面的代码可能会更清楚地表达我。

(defun get-search-term ()
  (interactive)
  (let (
        (selection (buffer-substring-no-properties (region-beginning) (region-end))))
    (if (= (length selection) 0)
        (message "empty string")
      (message selection))))

有什么建议吗？非常感谢！

Answer 1

“r”的交互规范是愚蠢的。你明白为什么了。

(defun get-search-term (beg end)
  "message region or \"empty string\" if none highlighted"
  (interactive (if (use-region-p)
                   (list (region-beginning) (region-end))
                 (list (point-min) (point-min))))
  (let ((selection (buffer-substring-no-properties beg end)))
    (if (= (length selection) 0)
        (message "empty string")
      (message selection))))

我的意思不是愚蠢和无用的“愚蠢”；只是它不在乎 关于标记是否有效。我认为它早于 瞬态标记模式。

编辑：上面两次使用(point-min)会使代码更难理解 重读时。这是一个更好的实现：

(defun get-search-term (beg end)
  "message region or \"empty string\" if none highlighted"
  (interactive (if (use-region-p)
                   (list (region-beginning) (region-end))
                 (list nil nil)))
  (message "%s" (if (and beg end)
                    (buffer-substring-no-properties beg end)
                  "empty string")))

Answer 2

检查变量标记激活例如。 C-h v 标记激活

==> mark-active 是在“C 源代码”中定义的变量。 它的值为 nil 本地缓冲区 Apropos;全局值为 nil

以任何方式设置时自动变为缓冲区本地。

文档： 非零表示标记和区域当前在此缓冲区中处于活动状态。

(defun get-search-term ()
  (interactive)
  (if mark-active
      (let (
        (selection (buffer-substring-no-properties (region-beginning) (region-end))))
    (if (= (length selection) 0)
        (message "empty string")
      (message selection))
    )
    (error "mark not active"))
  )