Mercurial > emacs
changeset 19750:95e4e1cba6ac
(Qcoding_system_history): New variable.
(syms_of_coding): Initialize it.
(Fread_coding_system): Use Qcoding_system_history.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 04 Sep 1997 05:58:20 +0000 |
| parents | dec0b076a378 |
| children | 19f79afe3e78 |
| files | src/coding.c |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/coding.c Thu Sep 04 05:57:44 1997 +0000 +++ b/src/coding.c Thu Sep 04 05:58:20 1997 +0000 @@ -253,6 +253,7 @@ Lisp_Object Qbuffer_file_coding_system; Lisp_Object Qpost_read_conversion, Qpre_write_conversion; Lisp_Object Qno_conversion, Qundecided; +Lisp_Object Qcoding_system_history; extern Lisp_Object Qinsert_file_contents, Qwrite_region; Lisp_Object Qcall_process, Qcall_process_region, Qprocess_argument; @@ -3118,7 +3119,7 @@ { Lisp_Object val; val = Fcompleting_read (prompt, Vobarray, Qcoding_system_p, - Qt, Qnil, Qnil, Qnil, Qnil); + Qt, Qnil, Qcoding_system_history, Qnil, Qnil); return (XSTRING (val)->size == 0 ? Qnil : Fintern (val, Qnil)); } @@ -3863,6 +3864,10 @@ Qtarget_idx = intern ("target-idx"); staticpro (&Qtarget_idx); + Qcoding_system_history = intern ("coding-system-history"); + staticpro (&Qcoding_system_history); + Fset (Qcoding_system_history, Qnil); + /* Target FILENAME is the first argument. */ Fput (Qinsert_file_contents, Qtarget_idx, make_number (0)); /* Target FILENAME is the third argument. */ @@ -4104,7 +4109,7 @@ "Table of extra Latin codes in the range 128..159 (inclusive).\n\ This is a vector of length 256.\n\ If Nth element is non-nil, the existence of code N in a file\n\ -(or output of subprocess) doesn't prevent it to be detected as\n\ +\(or output of subprocess) doesn't prevent it to be detected as\n\ a coding system of ISO 2022 variant which has a flag\n\ `accept-latin-extra-code' t (e.g. iso-latin-1) on reading a file\n\ or reading output of a subprocess.\n\