v2 = POP; v1 = TOP;
CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v1, 0);
CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v2, 0);
- TOP = (XFLOATINT (v1) == XFLOATINT (v2)) ? Qt : Qnil;
+#ifdef LISP_FLOAT_TYPE
+ if (FLOATP (v1) || FLOATP (v2))
+ {
+ double f1, f2;
+
+ f1 = (FLOATP (v1) ? XFLOAT (v1)->data : XINT (v1));
+ f2 = (FLOATP (v2) ? XFLOAT (v2)->data : XINT (v2));
+ TOP = (f1 == f2 ? Qt : Qnil);
+ }
+ else
+#endif
+ TOP = (XINT (v1) == XINT (v2) ? Qt : Qnil);
break;
case Bgtr:
break;
case Bfollowing_char:
- XSETFASTINT (v1, PT == ZV ? 0 : FETCH_CHAR (point));
+ v1 = Ffollowing_char ();
PUSH (v1);
break;
case Bpreceding_char:
- XSETFASTINT (v1, point <= BEGV ? 0 : FETCH_CHAR (point - 1));
+ v1 = Fprevious_char ();
PUSH (v1);
break;
case Bchar_syntax:
CHECK_NUMBER (TOP, 0);
XSETFASTINT (TOP,
- syntax_code_spec[(int) SYNTAX (0xFF & XINT (TOP))]);
+ syntax_code_spec[(int) SYNTAX (XINT (TOP))]);
break;
case Bbuffer_substring: