summaryrefslogtreecommitdiff
path: root/lisp/register.el
diff options
context:
space:
mode:
authorRoland McGrath <roland@gnu.org>1993-09-07 00:56:00 +0000
committerRoland McGrath <roland@gnu.org>1993-09-07 00:56:00 +0000
commit4d223726f666a2d47b645fb3c463f2bd6c52bcb4 (patch)
tree67643d78107d48633ef5b7f2730ff91a4ee2390d /lisp/register.el
parent73c7329b8c47fd47cef60db2d6e20a60f806ea0f (diff)
downloademacs-4d223726f666a2d47b645fb3c463f2bd6c52bcb4.tar.gz
(jump-to-register): Take new optional arg NODELETE (prefix arg); pass
through to set-frame-configuration.
Diffstat (limited to 'lisp/register.el')
-rw-r--r--lisp/register.el10
1 files 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)