diff options
| author | Charles A. Roelli <charles@aurox.ch> | 2017-09-28 20:17:35 +0200 |
|---|---|---|
| committer | Charles A. Roelli <charles@aurox.ch> | 2017-09-28 20:17:35 +0200 |
| commit | 122ffe521b2b34caa6a1f2583878c569ea395cb3 (patch) | |
| tree | e8f9ba53ad9fb4a02efaeb08f39ed3186ebe2c45 /lisp/register.el | |
| parent | 551594e951642a043862dabb987facfc0253f7d3 (diff) | |
| download | emacs-122ffe521b2b34caa6a1f2583878c569ea395cb3.tar.gz | |
Fix 'point-to-register' prompt with prefix arg
* lisp/register.el (point-to-register): Fix prompt when a prefix
argument is given.
Diffstat (limited to 'lisp/register.el')
| -rw-r--r-- | lisp/register.el | 7 |
1 files changed, 5 insertions, 2 deletions
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 |