From 1542ad37679bfea834b7ac7a02a8ac92ef12cd67 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 8 Nov 1993 13:14:31 +0000 Subject: [PATCH] (jump-to-register): Rename prefix arg to DELETE and invert its sense. --- lisp/register.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/register.el b/lisp/register.el index 4a4c29ac98e..cf8dafae0d9 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -74,21 +74,22 @@ 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 &optional nodelete) +(defun jump-to-register (char &optional delete) "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. 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." +Optional second arg non-nil (interactively, prefix argument) says to +delete any existing frames that the frame configuration doesn't mention. +\(Otherwise, these frames are made invisible.)" (interactive "cJump to register: \nP") (let ((val (get-register char))) (cond ((and (fboundp 'frame-configuration-p) (frame-configuration-p val)) - (set-frame-configuration val nodelete)) + (set-frame-configuration val (not delete))) ((window-configuration-p val) (set-window-configuration val)) ((markerp val) -- 2.39.5