From 9b787f3ead6a0f9bf5be068ba3bfd63fac203dac Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 5 Sep 1997 05:38:21 +0000 Subject: [PATCH] (Fread_coding_system): New optional arg DEFAULT_CODING_SYSTEM. --- src/coding.c | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/src/coding.c b/src/coding.c index 4fae220750a..2b46877055d 100644 --- a/src/coding.c +++ b/src/coding.c @@ -3112,14 +3112,18 @@ DEFUN ("read-non-nil-coding-system", Fread_non_nil_coding_system, return (Fintern (val, Qnil)); } -DEFUN ("read-coding-system", Fread_coding_system, Sread_coding_system, 1, 1, 0, - "Read a coding system or nil from the minibuffer, prompting with string PROMPT.") - (prompt) - Lisp_Object prompt; +DEFUN ("read-coding-system", Fread_coding_system, Sread_coding_system, 1, 2, 0, + "Read a coding system from the minibuffer, prompting with string PROMPT.\n\ +If the user enters null input, return second argument DEFAULT-CODING-SYSTEM.") + (prompt, default_coding_system) + Lisp_Object prompt, default_coding_system; { Lisp_Object val; + if (SYMBOLP (default_coding_system)) + XSETSTRING (default_coding_system, XSYMBOL (default_coding_system)->name); val = Fcompleting_read (prompt, Vobarray, Qcoding_system_p, - Qt, Qnil, Qcoding_system_history, Qnil, Qnil); + Qt, Qnil, Qcoding_system_history, + default_coding_system, Qnil); return (XSTRING (val)->size == 0 ? Qnil : Fintern (val, Qnil)); } -- 2.39.2