[Emacs-diffs] /srv/bzr/emacs/trunk r103646: auth-source.el (auth-source-netrc-create): Show the default in the prompt when prompting for token creation.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 103646
author: Teodor Zlatanov <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2011-03-13 20:50:07 +0000
message:
  auth-source.el (auth-source-netrc-create): Show the default in the prompt 
when prompting for token creation.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/auth-source.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-03-13 04:07:38 +0000
+++ b/lisp/gnus/ChangeLog       2011-03-13 20:50:07 +0000
@@ -1,3 +1,8 @@
+2011-03-13  Teodor Zlatanov  <address@hidden>
+
+       * auth-source.el (auth-source-netrc-create): Show the default in the
+       prompt when prompting for token creation.
+
 2011-03-12  Teodor Zlatanov  <address@hidden>
 
        * auth-source.el (auth-source-format-prompt): Always convert the value

=== modified file 'lisp/gnus/auth-source.el'
--- a/lisp/gnus/auth-source.el  2011-03-13 04:07:38 +0000
+++ b/lisp/gnus/auth-source.el  2011-03-13 20:50:07 +0000
@@ -1100,6 +1100,10 @@
                 ;; special case prompt for passwords
                 (read-passwd prompt))
                ((null data)
+                (when default
+                  (setq
+                   prompt
+                   (concat prompt (format "(default %s) " default))))
                 (read-string prompt nil nil default))
                (t (or data default))))