Whitespace cleanup in src/mule

[sxemacs] / src / mule / file-coding.c

diff --git a/src/mule/file-coding.c b/src/mule/file-coding.c
index 79c6fae..094da82 100644 (file)
--- a/src/mule/file-coding.c
+++ b/src/mule/file-coding.c
@@ -99,7 +99,7 @@ Lisp_Object Qforce_g2_on_output, Qforce_g3_on_output;
 Lisp_Object Qno_iso6429;
 Lisp_Object Qinput_charset_conversion, Qoutput_charset_conversion;
 Lisp_Object Qescape_quoted;
-Lisp_Object Qshort, Qno_ascii_eol, Qno_ascii_cntl, Qseven, Qlock_shift;
+Lisp_Object Qno_ascii_eol, Qno_ascii_cntl, Qseven, Qlock_shift;
 #endif
 Lisp_Object Qencode, Qdecode;
 
@@ -463,6 +463,7 @@ static Lisp_Object eol_type_to_symbol(eol_type_t type)
        switch (type) {
        default:
                abort();
+               break;
        case EOL_LF:
                return Qlf;
        case EOL_CRLF:
@@ -1330,6 +1331,7 @@ Return the type of CODING-SYSTEM.
        switch (XCODING_SYSTEM_TYPE(tmp)) {
        default:
                abort();
+               break;
        case CODESYS_AUTODETECT:
                return Qundecided;
 #ifdef MULE
@@ -1733,7 +1735,7 @@ detect_eol_type(struct detection_state *st, const Extbyte * src,
    Returns:
 
    0 == st->eol_type is EOL_AUTODETECT and/or more than coding category
-        is present in st->mask
+       is present in st->mask
    1 == definitive answers are here for both st->eol_type and st->mask
 */
 
@@ -1820,6 +1822,8 @@ static Lisp_Object coding_system_from_mask(int mask)
                   the first one that is allowed. */
                for (i = 0; i < CODING_CATEGORY_LAST; i++) {
                        cat = fcd->coding_category_by_priority[i];
+                       if (cat<0)
+                               continue;
                        if ((mask & (1 << cat)) &&
                            !NILP(fcd->coding_category_system[cat]))
                                break;
@@ -3572,7 +3576,7 @@ Return the UCS code (a positive integer) corresponding to CHARACTER.
    <GETA MARK> (U+3013) of JIS X 0208, which means correct character
    is not found, instead.
    #### do something more appropriate (use blob?)
-        Danger, Will Robinson!  Data loss.  Should we signal user? */
+       Danger, Will Robinson!  Data loss.  Should we signal user? */
 static void decode_ucs4(unsigned long ch, unsigned_char_dynarr * dst)
 {
        Lisp_Object chr = ucs_to_char(ch);
@@ -5698,7 +5702,6 @@ void syms_of_file_coding(void)
        defsymbol(&Qinput_charset_conversion, "input-charset-conversion");
        defsymbol(&Qoutput_charset_conversion, "output-charset-conversion");
 
-       defsymbol(&Qshort, "short");
        defsymbol(&Qno_ascii_eol, "no-ascii-eol");
        defsymbol(&Qno_ascii_cntl, "no-ascii-cntl");
        defsymbol(&Qseven, "seven");