怎样在emacs里调换两个窗口的内容，而布局不变？谢谢帮助！

retypedef

假设我一开始上边的窗口显示的是我的_信件_的buffer，
下边的窗口含的是我_程序_的buffer，什么命令能让这两个
buffer掉转，但窗口布局不变？Many thanks!

1. 
   
2. 如下图 :
   
3. 
   
4. |------------------------------------------------------|
   
5. |        Window A                                      |
   
6. |                                                      |
   
7. |  This buffer holds my _letter_                       |
   
8. |                                                      |
   
9. |------------------------------------------------------|
   
10. |                                                      |
    
11. |                                                      |
    
12. |           Window B                                   |
    
13. |                                                      |
    
14. |  Suppose this buffer contains my _program_           |
    
15. |                                                      |
    
16. |                                                      |
    
17. |                                                      |
    
18. |                                                      |
    
19. |                                                      |
    
20. |                                                      |
    
21. |                                                      |
    
22. |                                                      |
    
23. |                                                      |
    
24. |                                                      |
    
25. |------------------------------------------------------|
    
26. 
    
27.                        | |
    
28.                        | |
    
29.                        | |
    
30.                      \ | | /
    
31.                       \| |/
    
32.                        \ /
    
33.                         -
    
34. 
    
35. |------------------------------------------------------|
    
36. |        Window A                                      |
    
37. |                                                      |
    
38. |  Now it holds my _program_                           |
    
39. |                                                      |
    
40. |------------------------------------------------------|
    
41. |                                                      |
    
42. |                                                      |
    
43. |           Window B                                   |
    
44. |                                                      |
    
45. |  And this becomes where my _letter_ is in now        |
    
46. |                                                      |
    
47. |                                                      |
    
48. |                                                      |
    
49. |                                                      |
    
50. |                                                      |
    
51. |                                                      |
    
52. |                                                      |
    
53. |                                                      |
    
54. |                                                      |
    
55. |                                                      |
    
56. |------------------------------------------------------|
    
57. 
    

复制代码

retypedef

:-)

BBDD

最近在学lisp，顺手编了个小程序。

1. 
   
2. (defun switch-buffers ()
   
3. "Switch the two buffers in current window and next window."
   
4. (interactive)
   
5. (if (one-window-p)
   
6.     (message "There is only one window!")
   
7.   (let ((buffer1 (current-buffer))
   
8.         (buffer2 (window-buffer (next-window))))
   
9.     (switch-to-buffer buffer2)
   
10.     (set-window-buffer (next-window) buffer1))))
    

复制代码

你只要把这段程序加到你的.emacs里，然后就可以用M-x switch-buffers来切换窗口了。
你也可以把下面这句加到.emacs里：

1. 
   
2. (global-set-key (kbd "<f12>") 'switch-buffers)
   

复制代码

这样直接按f12就行了。

retypedef

thx again :-}

ajinn

正要找的，跟一贴当做收藏

jhuangjiahua

贴东西时，请放在 CODE 标签里 ，如

1. [code]  
   
2. XXXXXXX
   
3.               XXXXXXXX
   
4.               XXXXXXXXXX
   
5.     XXXXXXXXXX
   
6. XXXXXXXXX
   

复制代码

[/code]


另外， lisp 可不仅仅是 emacs 里的脚本