如何在不影响终止环的情况下将区域或整个缓冲区复制到 Emacs 中的另一个缓冲区？

Question

我想将该区域复制到 Emacs 中的另一个（临时）缓冲区，但如果没有（活动）区域，我想复制整个当前缓冲区。我所做的如下：

(defun do-something-with-region-or-buffer ()
  (interactive)
  (save-excursion
    (let ((begin (point-min)) (end (point-max)))
      (when (region-active-p)
        (setq begin (region-beginning))
        (setq end (region-end)))
      (copy-region-as-kill begin end)
      (with-temp-buffer
        (switch-to-buffer (current-buffer))
        (rename-buffer "*My Temp Buffer*")
        (delete-other-windows)
        (yank)
        (do-something-with-current-buffer)))))

但是，我有一种强烈的感觉，那就是这不是最理想的，因为我在搞乱杀戮戒指。如何在不影响的情况下做到这一点？ （额外的问题：我对区域的处理方式是还是整个缓冲区如果没有活动区域是一个好的？）

Answer 1

我就是这样做的：

(defun aak/dswrob ()
  (interactive)
  (let* ((regionp (region-active-p))
         (beg (and regionp (region-beginning)))
         (end (and regionp (region-end)))
         (buf (current-buffer)))
    (with-temp-buffer
      (switch-to-buffer (current-buffer) nil t)
      (rename-buffer "*My Temp Buffer*" t)
      (insert-buffer-substring buf beg end)
      (read-key-sequence "Keys?"))))

由您决定是否需要insert-buffer-substring 或 insert-buffer-substring-no-properties，不过没必要用 杀死戒指。

在内部交互地做一些事情也很奇怪 with-temp-buffer: 你要在那里运行一种模态循环吗？ 还是只是显示一些进展？

在处理区域或整个缓冲区时（注意：模 缩小），这并不罕见（见 replace-string 和 朋友）。