Tidy up some -to-register function argument specs

[bpt/emacs.git] / lisp / frameset.el

diff --git a/lisp/frameset.el b/lisp/frameset.el
index 378fe20..7b8d613 100644 (file)
--- a/lisp/frameset.el
+++ b/lisp/frameset.el
@@ -1220,14 +1220,13 @@ Called from `jump-to-register'.  Internal use only."
        (goto-char (aref data 2))))))
 
 ;;;###autoload
-(defun frameset-to-register (register &optional _arg)
+(defun frameset-to-register (register)
   "Store the current frameset in register REGISTER.
 Use \\[jump-to-register] to restore the frameset.
 Argument is a character, naming the register.
 
 Interactively, reads the register using `register-read-with-preview'."
-  (interactive (list (register-read-with-preview "Frameset to register: ")
-                    current-prefix-arg))
+  (interactive (list (register-read-with-preview "Frameset to register: ")))
   (set-register register
                (registerv-make
                 (vector (frameset-save nil