summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/register.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/register.el b/lisp/register.el
index 0921af97b11..885e5c5a0a7 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -42,7 +42,7 @@ A list represents a rectangle; its elements are strings.")
(setq register-alist (cons aelt register-alist)))
value))
-(defun point-to-register (char arg)
+(defun point-to-register (char &optional arg)
"Store current location of point in register REGISTER.
With prefix argument, store current frame configuration.
Use \\[jump-to-register] to go to that location or restore that configuration.
@@ -50,14 +50,14 @@ Argument is a character, naming the register."
(interactive "cPoint to register: \nP")
(set-register char (if arg (current-frame-configuration) (point-marker))))
-(defun window-configuration-to-register (char arg)
+(defun window-configuration-to-register (char &optional arg)
"Store the window configuration of the selected frame in register REGISTER.
Use \\[jump-to-register] to restore the configuration.
Argument is a character, naming the register."
(interactive "cPoint to register: \nP")
(set-register char (current-window-configuration)))
-(defun frame-configuration-to-register (char arg)
+(defun frame-configuration-to-register (char &optional arg)
"Store the window configuration of all frames in register REGISTER.
Use \\[jump-to-register] to restore the configuration.
Argument is a character, naming the register."