Commit 7e3afb04 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(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.
parent 271b4185
......@@ -4158,7 +4158,7 @@ after it has been set up properly in other respects."
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 @@ buffer's name. The name is modified by adding a `<N>' suffix to it
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 @@ This is always done when called interactively."
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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment