Mercurial > emacs
changeset 4671:3c5e001c9d60
(jump-to-register): Take new optional arg NODELETE (prefix arg); pass
through to set-frame-configuration.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Tue, 07 Sep 1993 00:56:00 +0000 |
| parents | e39967101d8b |
| children | 8996606e0a12 |
| files | lisp/register.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/register.el Tue Sep 07 00:53:48 1993 +0000 +++ b/lisp/register.el Tue Sep 07 00:56:00 1993 +0000 @@ -74,19 +74,21 @@ (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)