在emacs中选择以前选择的窗口

Question

我需要一个emacs内置函数或elisp函数,它可以带我到之前选择的窗口.我认为(select-window (get-lru-window))会这样做,但是如果我运行它几次,似乎只是在窗口之间循环而不是在它们之间来回交换,这就是我所期望的.

还有其他想法吗？

Answer 1

似乎没有办法在emacs中获取最近选择的窗口(与get-lru-window返回的最近最少使用的窗口相反).内部emacs跟踪windows上的use_time,get-lru-window使用它来查找"最旧的"窗口.但不幸的是,这并没有暴露在elisp中.

窗口列表按循环窗口顺序排序,这对您的情况没有帮助.

然而,缓冲区列表是从最近到最近使用的缓冲区排序的(或者不是非常严格的,有一个(埋置缓冲区)函数来最后移动缓冲区).

这意味着,如果您可以将问题转换为"如何在最近选择的缓冲区的不同窗口中切换到缓冲区",则应该可以.

一种方法是做这样的事情:

(defun switch-to-previous-buffer-in-a-different-window ()
  (interactive)
  (let* ((otherbuf (other-buffer (current-buffer) t))
     (otherwin (get-buffer-window otherbuf)))
(if otherwin
    (select-window otherwin)
  (message "Last buffer (%s) is not currently visible" (buffer-name otherbuf)))))

或者更短,更有特色:

(defun switch-to-previous-buffer-possibly-creating-new-window ()
  (interactive)
  (pop-to-buffer (other-buffer (current-buffer) t)))

这里other-buffer用于获取最近使用的缓冲区(当前缓冲区除外).只要你不在窗口中切换缓冲区,这应该可以正常工作,因为其他缓冲区将不再返回另一个窗口中的缓冲区,而是在当前窗口中切换的缓冲区.

因此,不要使用其他缓冲区让我们自己走缓冲区列表找到最佳候选者:

(defun switch-to-the-window-that-displays-the-most-recently-selected-buffer ()
  (interactive)
  (let* ((buflist (buffer-list (selected-frame)))      ; get buffer list in this frames ordered
     (buflist (delq (current-buffer) buflist))     ; if there are multiple windows showing same buffer.
     (winlist (mapcar 'get-buffer-window buflist)) ; buf->win
     (winlist (delq nil winlist))                  ; remove non displayed windows
     (winlist (delq (selected-window) winlist)))   ; remove current-window
(if winlist
    (select-window (car winlist))
  (message "Couldn't find a suitable window to switch to"))))

希望这可以帮助.