diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-06 22:59:48 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-06 23:19:43 +0200 |
| commit | 95268cdb7e63c2ef881d74039284bbb88e132d84 (patch) | |
| tree | 78c59edd20ffd7090bcdf3f928cb34ea7feaca33 /lisp/mpc.el | |
| parent | 52a92c6e7bab2861be47a4637a924b2a74b24b66 (diff) | |
| download | emacs-95268cdb7e63c2ef881d74039284bbb88e132d84.tar.gz emacs-95268cdb7e63c2ef881d74039284bbb88e132d84.tar.bz2 emacs-95268cdb7e63c2ef881d74039284bbb88e132d84.zip | |
Use format-prompt in read-string calls (that have default values)
* lisp/vc/vc-annotate.el (vc-annotate):
* lisp/vc/log-edit.el (log-edit-comment-search-backward)
(log-edit-comment-search-forward):
* lisp/textmodes/rst.el (rst-insert-list-new-item):
* lisp/server.el (server-force-delete):
* lisp/mpc.el (mpc):
* lisp/frame.el (set-frame-name):
* lisp/emulation/cua-rect.el (cua-sequence-rectangle):
* lisp/cedet/semantic/symref/list.el (semantic-symref-regexp):
* lisp/calendar/todo-mode.el (todo-read-time): Use `format-prompt'
in `read-string' calls that have defaults.
Diffstat (limited to 'lisp/mpc.el')
| -rw-r--r-- | lisp/mpc.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mpc.el b/lisp/mpc.el index 47fe4dea7fa..d22b7ab4506 100644 --- a/lisp/mpc.el +++ b/lisp/mpc.el @@ -2750,7 +2750,9 @@ If stopped, start playback." (if current-prefix-arg ;; FIXME: We should provide some completion here, especially for the ;; case where the user specifies a local socket/file name. - (setq mpc-host (read-string "MPD host and port: " nil nil mpc-host))) + (setq mpc-host (read-string + (format-prompt "MPD host and port" mpc-host) + nil nil mpc-host))) nil)) (let* ((song-buf (mpc-songs-buf)) (song-win (get-buffer-window song-buf 0))) |