From e7683fffbf7fd1b764ddfbeb788abc12a38e2b78 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Tue, 7 Sep 1993 00:56:00 +0000 Subject: [PATCH] (jump-to-register): Take new optional arg NODELETE (prefix arg); pass through to set-frame-configuration. --- lisp/register.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) 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) -- 2.39.5