summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
6a2b6cc)
(to_char_code): Add `Qsquare'.
(syms_of_mule_charset): Add new symbol `square'.
Lisp_Object Qsuper;
Lisp_Object Qsub;
Lisp_Object Qcircle;
Lisp_Object Qsuper;
Lisp_Object Qsub;
Lisp_Object Qcircle;
Lisp_Object Qwide;
Lisp_Object Qnarrow;
Lisp_Object Qfont;
Lisp_Object Qwide;
Lisp_Object Qnarrow;
Lisp_Object Qfont;
return -5;
else if (EQ (v, Qcircle))
return -6;
return -5;
else if (EQ (v, Qcircle))
return -6;
- else if (EQ (v, Qwide))
+ else if (EQ (v, Qsquare))
- else if (EQ (v, Qnarrow))
+ else if (EQ (v, Qwide))
- else if (EQ (v, Qfont))
+ else if (EQ (v, Qnarrow))
+ else if (EQ (v, Qfont))
+ return -10;
else
signal_simple_error (err_msg, err_arg);
}
else
signal_simple_error (err_msg, err_arg);
}
defsymbol (&Qsuper, "super");
defsymbol (&Qsub, "sub");
defsymbol (&Qcircle, "circle");
defsymbol (&Qsuper, "super");
defsymbol (&Qsub, "sub");
defsymbol (&Qcircle, "circle");
+ defsymbol (&Qsquare, "square");
defsymbol (&Qwide, "wide");
defsymbol (&Qnarrow, "narrow");
defsymbol (&Qfont, "font");
defsymbol (&Qwide, "wide");
defsymbol (&Qnarrow, "narrow");
defsymbol (&Qfont, "font");