Mercurial > emacs
comparison lisp/bs.el @ 85688:b210bba3f477
Merge from emacs--rel--22
Patches applied:
* emacs--rel--22 (patch 131-137)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 261-262)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-908
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 27 Oct 2007 09:07:17 +0000 |
| parents | 13362e3adf7c 89ec8c04410c |
| children | 4c3c683cdff8 4bc33ffdda1a |
comparison
equal
deleted
inserted
replaced
| 85687:666ace46440f | 85688:b210bba3f477 |
|---|---|
| 734 (view-buffer (bs--current-buffer))) | 734 (view-buffer (bs--current-buffer))) |
| 735 | 735 |
| 736 (defun bs-select () | 736 (defun bs-select () |
| 737 "Select current line's buffer and other marked buffers. | 737 "Select current line's buffer and other marked buffers. |
| 738 If there are no marked buffers the window configuration before starting | 738 If there are no marked buffers the window configuration before starting |
| 739 Buffer Selectin Menu will be restored. | 739 Buffer Selection Menu will be restored. |
| 740 If there are marked buffers each marked buffer and the current line's buffer | 740 If there are marked buffers each marked buffer and the current line's buffer |
| 741 will be selected in a window. | 741 will be selected in a window. |
| 742 Leave Buffer Selection Menu." | 742 Leave Buffer Selection Menu." |
| 743 (interactive) | 743 (interactive) |
| 744 (let ((buffer (bs--current-buffer))) | 744 (let ((buffer (bs--current-buffer))) |
| 758 ;; goto window we have started bs. | 758 ;; goto window we have started bs. |
| 759 (other-window 1))))) | 759 (other-window 1))))) |
| 760 | 760 |
| 761 (defun bs-select-other-window () | 761 (defun bs-select-other-window () |
| 762 "Select current line's buffer by `switch-to-buffer-other-window'. | 762 "Select current line's buffer by `switch-to-buffer-other-window'. |
| 763 The window configuration before starting Buffer Selectin Menu will be restored | 763 The window configuration before starting Buffer Selection Menu will be restored |
| 764 unless there is no other window. In this case a new window will be created. | 764 unless there is no other window. In this case a new window will be created. |
| 765 Leave Buffer Selection Menu." | 765 Leave Buffer Selection Menu." |
| 766 (interactive) | 766 (interactive) |
| 767 (let ((buffer (bs--current-buffer))) | 767 (let ((buffer (bs--current-buffer))) |
| 768 (bury-buffer (current-buffer)) | 768 (bury-buffer (current-buffer)) |