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/server.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/server.el')
| -rw-r--r-- | lisp/server.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 |