home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / functions / yic-buffer.el < prev    next >
Encoding:
Text File  |  1991-03-30  |  2.1 KB  |  75 lines
  1. ; Path: utkcs2!emory!swrinde!cs.utexas.edu!yale!cs.yale.edu!newsbase!choo
  2. ; >From: choo@cs.yale.edu (young-il choo)
  3. ; Newsgroups: comp.emacs
  4. ; Subject: Re: Editing multiple buffers and rotating between them
  5. ; Date: 7 Aug 90 23:39:19 GMT
  6. ; References: <236@jabberwock.shs.ohio-state.edu>
  7. ; Organization: Computer Science Yale University New Haven CT 06520-2158
  8. ; Nntp-Posting-Host: aqua.systemsx.cs.yale.edu
  9. ; 
  10. ; 
  11. ; > If I call emacs with, say, 5 file names:
  12. ; 
  13. ; >     %emacs f1 f2 f3 f4 f5
  14. ; 
  15. ; > ...
  16. ; 
  17. ; > Rather, I'd like it to switch circularly through the whole list:
  18. ; > f5->f4->f3->f2->f1->f5->...
  19. ; > I wonder if this feature is not built in. 
  20. ; > Does someone know how to program it as key binding, e.g.
  21. ; > via key board macro definition?
  22. ; 
  23. ; > Thanks in advance for any hints
  24. ; 
  25. ; >  - Reiner
  26. ; 
  27. ; Note:
  28. ; 
  29. ; 'bury-buffer is the primitive that cycles through the buffers in one
  30. ;    direction (while ignoring insignificant buffers)
  31. ; 
  32. ; 'yic-next-buffer is a simple function to cycle through the other way.  It
  33. ;    even displays buffers that are usually ignored, since I don't bother to
  34. ;    check them.
  35. ; 
  36. ; 'yic-other-buffer changes to the default other buffer, without waiting for a
  37. ;    RET
  38. ; 
  39. ; 'yic-kill-current-buffer kills current buffer.
  40. ; 
  41. ; I use these all the time to move back and forth between buffers, and also the
  42. ; ability to kill buffers easily is great when I am in dired-mode.
  43. ; 
  44. ; Hope this helps.
  45. ; 
  46. ; --  Young-il Choo
  47. ; 
  48. ;     Yale Computer Science  New Haven  CT 06520-2158
  49. ;     choo-young-il@yale.edu
  50. ; 
  51. ; 
  52. ; Put the following in your .emacs:
  53. ; 
  54. (global-set-key "\C-x\C-p" 'bury-buffer)
  55. (global-set-key "\C-x\C-n" 'yic-next-buffer)
  56. (global-set-key "\C-x\C-o" 'yic-other-buffer)
  57. (global-set-key "\C-x\C-k" 'yic-kill-current-buffer)
  58.  
  59. (defun yic-next-buffer ()
  60.   "Switch to previous buffer in current window."
  61.   (interactive)
  62.   (switch-to-buffer (car (reverse (buffer-list)))))
  63.  
  64. (defun yic-other-buffer ()
  65.   "Switch to the other buffer (2nd in list-buffer) in current window."
  66.   (interactive)
  67.   (switch-to-buffer (other-buffer)))
  68.  
  69. (defun yic-kill-current-buffer ()
  70.   "Kill current buffer."
  71.   (interactive)
  72.   (kill-buffer (current-buffer)))
  73.  
  74. ;; end
  75.