From: Katsumi Yamaoka Date: Thu, 4 Apr 2013 02:35:55 +0000 (+0000) Subject: lisp/gnus/mml.el (mml-minibuffer-read-description): Use `default' insted of `initial... X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~526^2~9 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aab96513490ee93962c2268887ba3cd6393c32ac;p=emacs.git lisp/gnus/mml.el (mml-minibuffer-read-description): Use `default' insted of `initial-input' for the argument name --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index a2b91b443e0..59be8293bb3 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,9 @@ +2013-04-04 Katsumi Yamaoka + + * mml.el (mml-minibuffer-read-description): Use `default' insted of + `initial-input' for the argument name. + Suggested by Stefan Monnier . + 2013-04-03 Kevin Layer (tiny change) * mml.el (mml-minibuffer-read-description): Allow passing in a prefix diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index 3c79d18b0c3..91f0e325182 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el @@ -1212,8 +1212,8 @@ If not set, `default-directory' will be used." 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))