Emacs快捷方式可以在一次移动中从水平分割切换到垂直分割？

Question

我经常发现自己从emacs中的两个窗口的水平视图切换到垂直视图.这就要求我先做C-x 1,然后C-x 3再C-x o接着C-x b <RET>切换到其它缓冲区或类似的东西.我想只需键入C-x |(类似于在Ediff中你|如何切换切换视图).

我在emacs wiki网站上找到了这个:http: //www.emacswiki.org/emacs/ToggleWindowSplit

但是如何将其映射到我想要的关键组合？或者是否有更简单的方法(减少.emacs空间).

Answer 1

让其他人也更容易找到脚本(在此链接中),已经使用其他答案的键绑定进行了修改:

(defun toggle-window-split ()
  (interactive)
  (if (= (count-windows) 2)
      (let* ((this-win-buffer (window-buffer))
         (next-win-buffer (window-buffer (next-window)))
         (this-win-edges (window-edges (selected-window)))
         (next-win-edges (window-edges (next-window)))
         (this-win-2nd (not (and (<= (car this-win-edges)
                     (car next-win-edges))
                     (<= (cadr this-win-edges)
                     (cadr next-win-edges)))))
         (splitter
          (if (= (car this-win-edges)
             (car (window-edges (next-window))))
          'split-window-horizontally
        'split-window-vertically)))
    (delete-other-windows)
    (let ((first-win (selected-window)))
      (funcall splitter)
      (if this-win-2nd (other-window 1))
      (set-window-buffer (selected-window) this-win-buffer)
      (set-window-buffer (next-window) next-win-buffer)
      (select-window first-win)
      (if this-win-2nd (other-window 1))))))

(global-set-key (kbd "C-x |") 'toggle-window-split)

Answer 2

最后一行是定义键组合的位置.它应该是(global-set-key (kbd "C-x |") 'toggle-window-split)