From: Charles A. Roelli <charles@aurox.ch>
Date: Thu, 28 Sep 2017 18:17:35 +0000 (+0200)
Subject: Fix 'point-to-register' prompt with prefix arg
X-Git-Tag: emacs-27.0.90~6284
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=122ffe521b2b34caa6a1f2583878c569ea395cb3;p=emacs.git

Fix 'point-to-register' prompt with prefix arg

* lisp/register.el (point-to-register): Fix prompt when a prefix
argument is given.
---

diff --git a/lisp/register.el b/lisp/register.el
index 913380763c6..23eefd08b88 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -182,8 +182,11 @@ Use \\[jump-to-register] to go to that location or restore that configuration.
 Argument is a character, naming the register.
 
 Interactively, reads the register using `register-read-with-preview'."
-  (interactive (list (register-read-with-preview "Point to register: ")
-		     current-prefix-arg))
+  (interactive (list (register-read-with-preview
+                      (if current-prefix-arg
+                          "Frame configuration to register: "
+                        "Point to register: "))
+                     current-prefix-arg))
   ;; Turn the marker into a file-ref if the buffer is killed.
   (add-hook 'kill-buffer-hook 'register-swap-out nil t)
   (set-register register