Mercurial > hg > xemacs-beta
diff src/callint.c @ 261:405dd6d1825b r20-5b29
Import from CVS: tag r20-5b29
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:23:51 +0200 |
| parents | 0e522484dd2a |
| children | c5d627a313b1 |
line wrap: on
line diff
--- a/src/callint.c Mon Aug 13 10:23:05 2007 +0200 +++ b/src/callint.c Mon Aug 13 10:23:51 2007 +0200 @@ -74,7 +74,7 @@ Lisp_Object Qread_string; Lisp_Object Qevents_to_keys; -#ifdef MULE +#if defined(MULE) || defined(FILE_CODING) Lisp_Object Qread_coding_system; Lisp_Object Qread_non_nil_coding_system; #endif @@ -854,7 +854,7 @@ } case 'Z': /* Coding-system symbol or nil if no prefix */ { -#ifdef MULE +#if defined(MULE) || defined(FILE_CODING) if (NILP (prefix)) { args[argnum] = Qnil; @@ -872,7 +872,7 @@ } case 'z': /* Coding-system symbol */ { -#ifdef MULE +#if defined(MULE) || defined(FILE_CODING) args[argnum] = call1 (Qread_coding_system, PROMPT ()); arg_from_tty = 1; #else @@ -974,7 +974,7 @@ defsymbol (&Qread_command, "read-command"); defsymbol (&Qread_number, "read-number"); defsymbol (&Qread_expression, "read-expression"); -#ifdef MULE +#if defined(MULE) || defined(FILE_CODING) defsymbol (&Qread_coding_system, "read-coding-system"); defsymbol (&Qread_non_nil_coding_system, "read-non-nil-coding-system"); #endif