Be more consistent in using register-read-with-preview to read registers

[gnu-emacs] / lisp / frameset.el

diff --git a/lisp/frameset.el b/lisp/frameset.el
index 163c6dd7ac3876d252eb4a3086491fcfc4ef4c8c..378fe20a497ca211e15a0a956d80aa0bbf79b5cd 100644 (file)
--- a/lisp/frameset.el
+++ b/lisp/frameset.el
@@ -1223,8 +1223,11 @@ Called from `jump-to-register'.  Internal use only."
 (defun frameset-to-register (register &optional _arg)
   "Store the current frameset in register REGISTER.
 Use \\[jump-to-register] to restore the frameset.
-Argument is a character, naming the register."
-  (interactive "cFrameset to register: \nP")
+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))
   (set-register register
                (registerv-make
                 (vector (frameset-save nil