mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

lisp/gnus/mml.el (mml-minibuffer-read-description): Use default' insted of initial-input' for the argument name

Browse Source
This commit is contained in:
Katsumi Yamaoka 2013-04-04 02:35:55 +00:00
parent f3d3eaf070
commit aab9651349
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View File

@ -1,3 +1,9 @@
2013-04-04 Katsumi Yamaoka <yamaoka@jpl.org>
* mml.el (mml-minibuffer-read-description): Use `default' insted of
`initial-input' for the argument name.
Suggested by Stefan Monnier <monnier@iro.umontreal.ca>.
2013-04-03 Kevin Layer <layer@known.net> (tiny change)
* mml.el (mml-minibuffer-read-description): Allow passing in a prefix

4
lisp/gnus/mml.el
View File

@ -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))