/[emacs]/emacs/src/data.c
ViewVC logotype

Diff of /emacs/src/data.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.208 by schwab, Fri Dec 7 12:15:21 2001 UTC revision 1.209 by pj, Sat Dec 22 13:58:42 2001 UTC
# Line 114  wrong_type_argument (predicate, value) Line 114  wrong_type_argument (predicate, value)
114    register Lisp_Object tem;    register Lisp_Object tem;
115    do    do
116      {      {
       if (!EQ (Vmocklisp_arguments, Qt))  
         {  
          if (STRINGP (value) &&  
              (EQ (predicate, Qintegerp) || EQ (predicate, Qinteger_or_marker_p)))  
            return Fstring_to_number (value, Qnil);  
          if (INTEGERP (value) && EQ (predicate, Qstringp))  
            return Fnumber_to_string (value);  
         }  
   
117        /* If VALUE is not even a valid Lisp object, abort here        /* If VALUE is not even a valid Lisp object, abort here
118           where we can get a backtrace showing where it came from.  */           where we can get a backtrace showing where it came from.  */
119        if ((unsigned int) XGCTYPE (value) >= Lisp_Type_Limit)        if ((unsigned int) XGCTYPE (value) >= Lisp_Type_Limit)

Legend:
Removed from v.1.208  
changed lines
  Added in v.1.209

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26