Emacs 和 ansi-term: Elisp 遍历缓冲区列表

Question

我正在使用以下代码打开 ansi-term。我找到了这个here。

(require 'term)
(defun visit-ansi-term ()
  "If the current buffer is:
     1) a running ansi-term named *ansi-term*, rename it.
     2) a stopped ansi-term, kill it and create a new one.
     3) a non ansi-term, go to an already running ansi-term
        or start a new one while killing a defunt one"
  (interactive)
  (let ((is-term (string= "term-mode" major-mode))
        (is-running (term-check-proc (buffer-name)))
        (term-cmd "/usr/local/bin/bash")
        (anon-term (get-buffer "*ansi-term*")))
    (if is-term
        (if is-running
            (if (string= "*ansi-term*" (buffer-name))
                (call-interactively 'rename-buffer)
              (if anon-term
                  (switch-to-buffer "*ansi-term*")
                (ansi-term term-cmd)))
          (kill-buffer (buffer-name))
          (ansi-term term-cmd))
      (if anon-term
          (if (term-check-proc "*ansi-term*")
              (switch-to-buffer "*ansi-term*")
            (kill-buffer "*ansi-term*")
            (ansi-term term-cmd))
        (ansi-term term-cmd)))))

(global-set-key (kbd "<f2>") 'visit-ansi-term)

现在我想修改它，这样在重命名缓冲区后它会记住它的名称，并且当我使用键盘快捷键遍历重命名的缓冲区列表时。

所以如果我按 [F2] 并发现 ansi-term 正在运行，它会询问我是否要重命名它。我将其重命名为 BUILD。我想要一个函数并绑定到 Say [F3] 以遍历打开的 ansi-terms 列表。

我是一个 ELISP 文盲。很高兴有人指出可以帮助我做到这一点的参考资料。

谢谢。

Answer 1

以下代码/绑定循环遍历主要模式为term-mode的所有缓冲区：

(global-set-key (kbd "<f3>") 'cycle-ansi-term)
(defun cycle-ansi-term ()
  "cycle through buffers whose major mode is term-mode"
  (interactive)
  (when (string= "term-mode" major-mode)
    (bury-buffer))
  (let ((buffers (cdr (buffer-list))))
    (while buffers
      (when (with-current-buffer (car buffers) (string= "term-mode" major-mode))
        (switch-to-buffer (car buffers))
        (setq buffers nil))
      (setq buffers (cdr buffers)))))