[Emacs-diffs] Changes to emacs/lisp/subr.el

[Miles Bader]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.395 emacs/lisp/subr.el:1.396
*** emacs/lisp/subr.el:1.395    Wed Jun  2 00:38:00 2004
--- emacs/lisp/subr.el  Wed Jun  2 22:44:45 2004
***************
*** 1335,1343 ****
    (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)))))
      (while
        (progn
          (let ((str (read-from-minibuffer prompt nil nil nil nil
--- 1335,1345 ----
    (let ((n nil))
      (when default
        (setq prompt
!           (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