Mercurial > hg > xemacs-beta

comparison src/callint.c @ 261:405dd6d1825b r20-5b29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b29
author cvs
date Mon, 13 Aug 2007 10:23:51 +0200
parents 0e522484dd2a
children c5d627a313b1
comparison
equal deleted inserted replaced
260:052205f7dd5f 261:405dd6d1825b
72 Lisp_Object Qread_command; 72 Lisp_Object Qread_command;
73 Lisp_Object Qread_number; 73 Lisp_Object Qread_number;
74 Lisp_Object Qread_string; 74 Lisp_Object Qread_string;
75 Lisp_Object Qevents_to_keys; 75 Lisp_Object Qevents_to_keys;
76 76
77 #ifdef MULE 77 #if defined(MULE) || defined(FILE_CODING)
78 Lisp_Object Qread_coding_system; 78 Lisp_Object Qread_coding_system;
79 Lisp_Object Qread_non_nil_coding_system; 79 Lisp_Object Qread_non_nil_coding_system;
80 #endif 80 #endif
81 81
82 /* ARGSUSED */ 82 /* ARGSUSED */
852 arg_from_tty = 1; 852 arg_from_tty = 1;
853 break; 853 break;
854 } 854 }
855 case 'Z': /* Coding-system symbol or nil if no prefix */ 855 case 'Z': /* Coding-system symbol or nil if no prefix */
856 { 856 {
857 #ifdef MULE 857 #if defined(MULE) || defined(FILE_CODING)
858 if (NILP (prefix)) 858 if (NILP (prefix))
859 { 859 {
860 args[argnum] = Qnil; 860 args[argnum] = Qnil;
861 } 861 }
862 else 862 else
870 #endif 870 #endif
871 break; 871 break;
872 } 872 }
873 case 'z': /* Coding-system symbol */ 873 case 'z': /* Coding-system symbol */
874 { 874 {
875 #ifdef MULE 875 #if defined(MULE) || defined(FILE_CODING)
876 args[argnum] = call1 (Qread_coding_system, PROMPT ()); 876 args[argnum] = call1 (Qread_coding_system, PROMPT ());
877 arg_from_tty = 1; 877 arg_from_tty = 1;
878 #else 878 #else
879 args[argnum] = Qnil; 879 args[argnum] = Qnil;
880 #endif 880 #endif
972 defsymbol (&Qread_variable, "read-variable"); 972 defsymbol (&Qread_variable, "read-variable");
973 defsymbol (&Qread_function, "read-function"); 973 defsymbol (&Qread_function, "read-function");
974 defsymbol (&Qread_command, "read-command"); 974 defsymbol (&Qread_command, "read-command");
975 defsymbol (&Qread_number, "read-number"); 975 defsymbol (&Qread_number, "read-number");
976 defsymbol (&Qread_expression, "read-expression"); 976 defsymbol (&Qread_expression, "read-expression");
977 #ifdef MULE 977 #if defined(MULE) || defined(FILE_CODING)
978 defsymbol (&Qread_coding_system, "read-coding-system"); 978 defsymbol (&Qread_coding_system, "read-coding-system");
979 defsymbol (&Qread_non_nil_coding_system, "read-non-nil-coding-system"); 979 defsymbol (&Qread_non_nil_coding_system, "read-non-nil-coding-system");
980 #endif 980 #endif
981 defsymbol (&Qevents_to_keys, "events-to-keys"); 981 defsymbol (&Qevents_to_keys, "events-to-keys");
982 defsymbol (&Qcommand_debug_status, "command-debug-status"); 982 defsymbol (&Qcommand_debug_status, "command-debug-status");