From: Roland McGrath <roland@gnu.org>
Date: Tue, 7 Sep 1993 00:56:00 +0000 (+0000)
Subject: (jump-to-register): Take new optional arg NODELETE (prefix arg); pass
X-Git-Tag: emacs-19.34~11180
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e7683fffbf7fd1b764ddfbeb788abc12a38e2b78;p=emacs.git

(jump-to-register): Take new optional arg NODELETE (prefix arg); pass
through to set-frame-configuration.
---

diff --git a/lisp/register.el b/lisp/register.el
index 32646112857..4a4c29ac98e 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -74,19 +74,21 @@ Argument is a character, naming the register."
   (set-register char (current-frame-configuration)))
 
 (defalias 'register-to-point 'jump-to-register)
-(defun jump-to-register (char)
+(defun jump-to-register (char &optional nodelete)
   "Move point to location stored in a register.
 If the register contains a file name, find that file.
  \(To put a file name in a register, you must use `set-register'.)
 If the register contains a window configuration (one frame) or a frame
 configuration (all frames), restore that frame or all frames accordingly.
-Argument is a character, naming the register."
-  (interactive "cJump to register: ")
+First argument is a character, naming the register.
+Optional second arg non-nil (interactively, prefix argument) says not to
+delete any existing frames when restoring a frame configuration."
+  (interactive "cJump to register: \nP")
   (let ((val (get-register char)))
     (cond
      ((and (fboundp 'frame-configuration-p)
 	   (frame-configuration-p val))
-      (set-frame-configuration val))
+      (set-frame-configuration val nodelete))
      ((window-configuration-p val)
       (set-window-configuration val))
      ((markerp val)