*** empty log message ***

diff --git a/src/callint.c b/src/callint.c
index 0075ef7..88c1672 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -525,7 +525,7 @@ Its numeric meaning is what you would get from `(interactive \"p\")'.")
 
   if (NILP (raw))
     XFASTINT (val) = 1;
-  else if (XTYPE (raw) == Lisp_Symbol)
+  else if (EQ (val, Qminus))
     XSETINT (val, -1);
   else if (CONSP (raw))
     XSETINT (val, XINT (XCONS (raw)->car));