emacs swaps buffer between two windows

dealover

                                                  I wrote this code yesterday evening. It swaps buffer between two windows in emacs.
It doesn't work that the number of window is not equals TWO.

2. (defun qw-swap-window-split ()
3.   "This code swap two buffers in  two windows, arranged left-right or
4. up-down. It  works for one frame of two windows."
5.   (interactive)
6.   (if (= (count-windows) 2)
7.       (let* ((cur-buf (window-buffer))
8.              (next-buf (window-buffer (next-window))))
9.         (set-window-buffer (selected-window) next-buf)
10.         (set-window-buffer (next-window) cur-buf))))

复制代码

               
               
               
               

本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u/29993/showart_2006604.html