Mercurial > emacs
changeset 4931:ad035a2d8e26
(jump-to-register): Rename prefix arg to DELETE and invert its sense.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 08 Nov 1993 13:14:31 +0000 |
| parents | 04dee67f86cf |
| children | 5986d619b4ca |
| files | lisp/register.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/register.el Mon Nov 08 13:14:05 1993 +0000 +++ b/lisp/register.el Mon Nov 08 13:14:31 1993 +0000 @@ -74,21 +74,22 @@ (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)