Mercurial > emacs

changeset 19734:c4894d8a3310

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read-language-name): Use a default, not an initial input.
author Richard M. Stallman <rms@gnu.org>
date Wed, 03 Sep 1997 22:29:06 +0000
parents 59d864067cdb
children 73c2effb07a4
files lisp/international/mule-cmds.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el	Wed Sep 03 22:25:16 1997 +0000
+++ b/lisp/international/mule-cmds.el	Wed Sep 03 22:29:06 1997 +0000
@@ -313,15 +313,15 @@
     (set-language-info language-name (car (car alist)) (cdr (car alist)))
     (setq alist (cdr alist))))
 
-(defun read-language-name (key prompt &optional initial-input)
+(defun read-language-name (key prompt &optional default)
   "Read language name which has information for KEY, prompting with PROMPT.
+DEFAULT is the default choice of language.
 It returns a string as language name."
   (let* ((completion-ignore-case t)
 	 (name (completing-read prompt
 				language-info-alist
 				(function (lambda (elm) (assq key elm)))
-				t
-				initial-input)))
+				t nil nil default)))
     (if (and (> (length name) 0)
 	     (get-language-info name key))
 	name)))