From aab96513490ee93962c2268887ba3cd6393c32ac Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 4 Apr 2013 02:35:55 +0000 Subject: [PATCH] lisp/gnus/mml.el (mml-minibuffer-read-description): Use `default' insted of `initial-input' for the argument name --- lisp/gnus/ChangeLog | 6 ++++++ lisp/gnus/mml.el | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) 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)) -- 2.39.2