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/textmodes/rst.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/textmodes/rst.el')
| -rw-r--r-- | lisp/textmodes/rst.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el index db17a90a716..f2fcd62c871 100644 --- a/lisp/textmodes/rst.el +++ b/lisp/textmodes/rst.el @@ -2371,21 +2371,23 @@ also arranged by `rst-insert-list-new-tag'." (save-match-data (cond ((equal cnt "a") - (let ((itemno (read-string "Give starting value [a]: " - nil nil "a"))) + (let ((itemno (read-string + (format-prompt "Give starting value" "a") + nil nil "a"))) (downcase (substring itemno 0 1)))) ((equal cnt "A") - (let ((itemno (read-string "Give starting value [A]: " - nil nil "A"))) + (let ((itemno (read-string + (format-prompt "Give starting value" "A") + nil nil "A"))) (upcase (substring itemno 0 1)))) ((equal cnt "I") - (let ((itemno (read-number "Give starting value [1]: " 1))) + (let ((itemno (read-number "Give starting value: " 1))) (rst-arabic-to-roman itemno))) ((equal cnt "i") - (let ((itemno (read-number "Give starting value [1]: " 1))) + (let ((itemno (read-number "Give starting value: " 1))) (downcase (rst-arabic-to-roman itemno)))) ((equal cnt "1") - (let ((itemno (read-number "Give starting value [1]: " 1))) + (let ((itemno (read-number "Give starting value: " 1))) (number-to-string itemno))))))) (if no (setq itemstyle (replace-match no t t itemstyle))) |