Mercurial > emacs
diff lisp/subr.el @ 55008:f5cafaedbab0
(read-number): Check whether `default' is nil.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 20 Apr 2004 20:40:41 +0000 |
parents | a19fbbfac280 |
children | aba8cece2157 |
line wrap: on
line diff
--- a/lisp/subr.el Tue Apr 20 20:36:43 2004 +0000 +++ b/lisp/subr.el Tue Apr 20 20:40:41 2004 +0000 @@ -1329,7 +1329,8 @@ (while (progn (let ((str (read-from-minibuffer prompt nil nil nil nil - (number-to-string default)))) + (and default + (number-to-string default))))) (setq n (cond ((zerop (length str)) default) ((stringp str) (read str)))))