Commit 1542ad37 authored by Richard M. Stallman's avatar Richard M. Stallman

(jump-to-register): Rename prefix arg to DELETE and invert its sense.

parent 5da841d2
...@@ -74,21 +74,22 @@ Argument is a character, naming the register." ...@@ -74,21 +74,22 @@ Argument is a character, naming the register."
(set-register char (current-frame-configuration))) (set-register char (current-frame-configuration)))
(defalias 'register-to-point 'jump-to-register) (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. "Move point to location stored in a register.
If the register contains a file name, find that file. If the register contains a file name, find that file.
\(To put a file name in a register, you must use `set-register'.) \(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 If the register contains a window configuration (one frame) or a frame
configuration (all frames), restore that frame or all frames accordingly. configuration (all frames), restore that frame or all frames accordingly.
First argument is a character, naming the register. First argument is a character, naming the register.
Optional second arg non-nil (interactively, prefix argument) says not to Optional second arg non-nil (interactively, prefix argument) says to
delete any existing frames when restoring a frame configuration." delete any existing frames that the frame configuration doesn't mention.
\(Otherwise, these frames are made invisible.)"
(interactive "cJump to register: \nP") (interactive "cJump to register: \nP")
(let ((val (get-register char))) (let ((val (get-register char)))
(cond (cond
((and (fboundp 'frame-configuration-p) ((and (fboundp 'frame-configuration-p)
(frame-configuration-p val)) (frame-configuration-p val))
(set-frame-configuration val nodelete)) (set-frame-configuration val (not delete)))
((window-configuration-p val) ((window-configuration-p val)
(set-window-configuration val)) (set-window-configuration val))
((markerp val) ((markerp val)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment