procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(clone-indirect-buffer-other-window): New command.

Browse source 
(clone-indirect-buffer): Add optional arg NORECROD.
(toplevel): Bind `C-x 4 c' to clone-indirect-buffer-other-window.
This commit is contained in:
Gerd Moellmann 2000-04-19 20:40:46 +00:00
parent 271b4185ff
commit 7e3afb0402
1 changed files with 17 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/simple.el
View file

@ -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.