Mercurial > emacs
changeset 28659:17281c5a2834
(clone-indirect-buffer-other-window): New command.
(clone-indirect-buffer): Add optional arg NORECROD.
(toplevel): Bind `C-x 4 c' to clone-indirect-buffer-other-window.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 19 Apr 2000 20:40:46 +0000 |
| parents | bb5083cf0565 |
| children | 9de15cb0c24b |
| files | lisp/simple.el |
| diffstat | 1 files changed, 17 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Wed Apr 19 19:12:22 2000 +0000 +++ b/lisp/simple.el Wed Apr 19 20:40:46 2000 +0000 @@ -4158,7 +4158,7 @@ new)) -(defun clone-indirect-buffer (newname display-flag) +(defun clone-indirect-buffer (newname display-flag &optional norecord) "Create an indirect buffer that is a twin copy of the current buffer. Give the indirect buffer name NEWNAME. Interactively, read NEW-NAME @@ -4168,7 +4168,10 @@ or by incrementing the N in an existing suffix. DISPLAY-FLAG non-nil means show the new buffer with `pop-to-buffer'. -This is always done when called interactively." +This is always done when called interactively. + +Optional last arg NORECORD non-nil means do not put this buffer at the +front of the list of recently selected ones." (interactive (list (if current-prefix-arg (read-string "BName of indirect buffer: ")) t)) @@ -4182,6 +4185,18 @@ buffer)) +(defun clone-indirect-buffer-other-window (buffer &optional norecord) + "Create an indirect buffer that is a twin copy of BUFFER. +Select the new buffer in another window. +Optional second arg NORECORD non-nil means do not put this buffer at +the front of the list of recently selected ones." + (interactive "bClone buffer in other window: ") + (let ((popup-windows t)) + (set-buffer buffer) + (clone-indirect-buffer nil t norecord))) + +(define-key ctl-x-4-map "c" 'display-buffer) + ;;; Syntax stuff.