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

[gnu-emacs] / lisp / register.el

diff --git a/lisp/register.el b/lisp/register.el
index 3b65c648d98b83c2ce20d846e9ef68d3a157a7af..1a42d0bf3766f31fab9f39d1b2329bfe84b12742 100644 (file)
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -296,8 +296,11 @@ If REGISTER contains a number, add `prefix-numeric-value' of
 PREFIX to it.
 
 If REGISTER is empty or if it contains text, call
-`append-to-register' with `delete-flag' set to PREFIX."
-  (interactive "P\ncIncrement register: ")
+`append-to-register' with `delete-flag' set to PREFIX.
+
+Interactively, reads the register using `register-read-with-preview'."
+  (interactive (list current-prefix-arg
+                    (register-read-with-preview "Increment register: ")))
   (let ((register-val (get-register register)))
     (cond
      ((numberp register-val)