Function: gnutls-error-fatalp

gnutls-error-fatalp is a function defined in gnutls.c.

Signature

(gnutls-error-fatalp ERR)

Documentation

Return non-nil if ERROR is fatal.

ERROR is an integer or a symbol with an integer gnutls-code property. Usage: (gnutls-error-fatalp ERROR)

Source Code

// Defined in /usr/src/emacs/src/gnutls.c
{
  Lisp_Object code;

  if (EQ (err, Qt)) return Qnil;

  if (SYMBOLP (err))
    {
      code = Fget (err, Qgnutls_code);
      if (NUMBERP (code))
	{
	  err = code;
	}
      else
	{
	  error ("Symbol has no numeric gnutls-code property");
	}
    }

  if (! TYPE_RANGED_FIXNUMP (int, err))
    error ("Not an error symbol or code");

  if (0 == gnutls_error_is_fatal (XFIXNUM (err)))
    return Qnil;

  return Qt;
}