From a8a6776b57f88d10c59f4d44ff73051d0ee92d25 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 25 Feb 1993 06:39:57 +0000 Subject: [PATCH] (point-to-register): Make arg ARG optional. (window-configuration-to-register): Likewise. (frame-configuration-to-register): Likewise. --- lisp/register.el | 6 +++--- 1 file 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."