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/frame.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/frame.el')
| -rw-r--r-- | lisp/frame.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index 05da1ea7b8b..7751ae1303f 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -1581,8 +1581,9 @@ When called interactively, prompt for the name of the frame. On text terminals, the frame name is displayed on the mode line. On graphical displays, it is displayed on the frame's title bar." (interactive - (list (read-string "Frame name: " nil nil - (cdr (assq 'name (frame-parameters)))))) + (let ((default (cdr (assq 'name (frame-parameters))))) + (list (read-string (format-prompt "Frame name" default) nil nil + default)))) (modify-frame-parameters (selected-frame) (list (cons 'name name)))) |