Commit 2d14d61e authored by Miles Bader's avatar Miles Bader

Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-363

(read-number): Use canonical format for default in prompt.

2004-06-03  Miles Bader  <miles@gnu.org>

   * lisp/subr.el (read-number): Use canonical format for default in prompt.
parent 2bb680b0
2004-06-03 Miles Bader <miles@gnu.org>
* subr.el (read-number): Use canonical format for default in prompt.
* minibuf-eldef.el (minibuffer-default-in-prompt-regexps): Add
regexp for " [...]" style defaults.
......
......@@ -1335,9 +1335,11 @@ Optional DEFAULT is a default password to use instead of empty input."
(let ((n nil))
(when default
(setq prompt
(if (string-match "\\(\\):[^:]*" prompt)
(replace-match (format " [%s]" default) t t prompt 1)
(concat prompt (format " [%s] " default)))))
(if (string-match "\\(\\):[ \t]*\\'" prompt)
(replace-match (format " (default %s)" default) t t prompt 1)
(replace-regexp-in-string "[ \t]*\\'"
(format " (default %s) " default)
prompt t t))))
(while
(progn
(let ((str (read-from-minibuffer prompt nil nil nil nil
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment