From 95268cdb7e63c2ef881d74039284bbb88e132d84 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 6 Sep 2020 22:59:48 +0200 Subject: 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. --- lisp/server.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/server.el') diff --git a/lisp/server.el b/lisp/server.el index 9934e1c1be9..436a6ca0c70 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -728,7 +728,8 @@ If server is running, it is first stopped. NAME defaults to `server-name'. With argument, ask for NAME." (interactive (list (if current-prefix-arg - (read-string "Server name: " nil nil server-name)))) + (read-string (format-prompt "Server name" server-name) + nil nil server-name)))) (when server-mode (with-temp-message nil (server-mode -1))) (let ((file (expand-file-name (or name server-name) (if server-use-tcp -- cgit v1.2.3