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

Diff of /emacs/src/eval.c

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

revision 1.192 by rms, Fri Jul 12 11:16:42 2002 UTC revision 1.193 by raeburn, Mon Jul 15 00:00:36 2002 UTC
# Line 837  on its property list).  */) Line 837  on its property list).  */)
837    if (INTEGERP (documentation) && XINT (documentation) < 0)    if (INTEGERP (documentation) && XINT (documentation) < 0)
838      return Qt;      return Qt;
839    if (STRINGP (documentation)    if (STRINGP (documentation)
840        && ((unsigned char) XSTRING (documentation)->data[0] == '*'))        && ((unsigned char) SREF (documentation, 0) == '*'))
841      return Qt;      return Qt;
842    /* If it is (STRING . INTEGER), a negative integer means a user variable.  */    /* If it is (STRING . INTEGER), a negative integer means a user variable.  */
843    if (CONSP (documentation)    if (CONSP (documentation)
# Line 1554  See also the function `condition-case'. Line 1554  See also the function `condition-case'.
1554      data = Fcons (error_symbol, data);      data = Fcons (error_symbol, data);
1555    
1556    string = Ferror_message_string (data);    string = Ferror_message_string (data);
1557    fatal ("%s", XSTRING (string)->data, 0);    fatal ("%s", SDATA (string), 0);
1558  }  }
1559    
1560  /* Return nonzero iff LIST is a non-nil atom or  /* Return nonzero iff LIST is a non-nil atom or
# Line 1920  do_autoload (fundef, funname) Line 1920  do_autoload (fundef, funname)
1920       of what files are preloaded and when.  */       of what files are preloaded and when.  */
1921    if (! NILP (Vpurify_flag))    if (! NILP (Vpurify_flag))
1922      error ("Attempt to autoload %s while preparing to dump",      error ("Attempt to autoload %s while preparing to dump",
1923             XSTRING (SYMBOL_NAME (funname))->data);             SDATA (SYMBOL_NAME (funname)));
1924    
1925    fun = funname;    fun = funname;
1926    CHECK_SYMBOL (funname);    CHECK_SYMBOL (funname);
# Line 1959  do_autoload (fundef, funname) Line 1959  do_autoload (fundef, funname)
1959    
1960    if (!NILP (Fequal (fun, fundef)))    if (!NILP (Fequal (fun, fundef)))
1961      error ("Autoloading failed to define function %s",      error ("Autoloading failed to define function %s",
1962             XSTRING (SYMBOL_NAME (funname))->data);             SDATA (SYMBOL_NAME (funname)));
1963    UNGCPRO;    UNGCPRO;
1964  }  }
1965    
# Line 2938  DEFUN ("fetch-bytecode", Ffetch_bytecode Line 2938  DEFUN ("fetch-bytecode", Ffetch_bytecode
2938          {          {
2939            tem = AREF (object, COMPILED_BYTECODE);            tem = AREF (object, COMPILED_BYTECODE);
2940            if (CONSP (tem) && STRINGP (XCAR (tem)))            if (CONSP (tem) && STRINGP (XCAR (tem)))
2941              error ("Invalid byte code in %s", XSTRING (XCAR (tem))->data);              error ("Invalid byte code in %s", SDATA (XCAR (tem)));
2942            else            else
2943              error ("Invalid byte code");              error ("Invalid byte code");
2944          }          }

Legend:
Removed from v.1.192  
changed lines
  Added in v.1.193

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