Mercurial > hg > xemacs-beta

comparison src/file-coding.c @ 406:b8cc9ab3f761 r21-2-33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-33
author cvs
date Mon, 13 Aug 2007 11:17:09 +0200
parents 2f8bb876ab1d
children 697ef44129c6
comparison
equal deleted inserted replaced
405:0e08f63c74d2 406:b8cc9ab3f761
1069 Lisp_Object aliasee = Fgethash (alias, Vcoding_system_hash_table, Qnil); 1069 Lisp_Object aliasee = Fgethash (alias, Vcoding_system_hash_table, Qnil);
1070 if (SYMBOLP (aliasee)) 1070 if (SYMBOLP (aliasee))
1071 return aliasee; 1071 return aliasee;
1072 else 1072 else
1073 signal_simple_error ("Symbol is not a coding system alias", alias); 1073 signal_simple_error ("Symbol is not a coding system alias", alias);
1074 return Qnil; /* To keep the compiler happy */
1074 } 1075 }
1075 1076
1076 static Lisp_Object 1077 static Lisp_Object
1077 append_suffix_to_symbol (Lisp_Object symbol, const char *ascii_string) 1078 append_suffix_to_symbol (Lisp_Object symbol, const char *ascii_string)
1078 { 1079 {