Mercurial > emacs
changeset 1955:8ac912d2d369
(point-to-register): Make arg ARG optional.
(window-configuration-to-register): Likewise.
(frame-configuration-to-register): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 25 Feb 1993 06:39:57 +0000 |
| parents | 059d99d03aae |
| children | 02bb7721b67c |
| files | lisp/register.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/register.el Thu Feb 25 00:38:55 1993 +0000 +++ b/lisp/register.el Thu Feb 25 06:39:57 1993 +0000 @@ -42,7 +42,7 @@ (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 @@ (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."