[Emacs-diffs] /srv/bzr/emacs/trunk r112219: lisp/gnus/mml.el (mml-minibuffer-read-description): Use `default' insted of `initial-input' for the argument name

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 112219
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2013-04-04 02:35:55 +0000
message:
  lisp/gnus/mml.el (mml-minibuffer-read-description): Use `default' insted of 
`initial-input' for the argument name
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/mml.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-04-03 23:19:58 +0000
+++ b/lisp/gnus/ChangeLog       2013-04-04 02:35:55 +0000
@@ -1,3 +1,9 @@
+2013-04-04  Katsumi Yamaoka  <address@hidden>
+
+       * mml.el (mml-minibuffer-read-description): Use `default' insted of
+       `initial-input' for the argument name.
+       Suggested by Stefan Monnier <address@hidden>.
+
 2013-04-03  Kevin Layer  <address@hidden>  (tiny change)
 
        * mml.el (mml-minibuffer-read-description): Allow passing in a prefix

=== modified file 'lisp/gnus/mml.el'
--- a/lisp/gnus/mml.el  2013-04-03 23:19:58 +0000
+++ b/lisp/gnus/mml.el  2013-04-04 02:35:55 +0000
@@ -1212,8 +1212,8 @@
        string
       default)))
 
-(defun mml-minibuffer-read-description (&optional initial-input)
-  (let ((description (read-string "One line description: " initial-input)))
+(defun mml-minibuffer-read-description (&optional default)
+  (let ((description (read-string "One line description: " default)))
     (when (string-match "\\`[ \t]*\\'" description)
       (setq description nil))
     description))