Mercurial > hg > xemacs-beta

comparison src/eval.c @ 2725:578c6447aa28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-04-11 05:11:22 by stephent] typo in issue_call_trapping_problems_warning <87mzs552ka.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Mon, 11 Apr 2005 05:11:24 +0000
parents 166ed8151e62
children facf3239ba30
comparison
equal deleted inserted replaced
2724:9e674e9b054e 2725:578c6447aa28
4909 { 4909 {
4910 Lisp_Object errstr = 4910 Lisp_Object errstr =
4911 emacs_sprintf_string_lisp 4911 emacs_sprintf_string_lisp
4912 ("%s: Attempt to throw outside of function:" 4912 ("%s: Attempt to throw outside of function:"
4913 "To catch `%s' with value `%s'\n\nBacktrace follows:\n\n%s", 4913 "To catch `%s' with value `%s'\n\nBacktrace follows:\n\n%s",
4914 Qnil, 3, 4914 Qnil, 4,
4915 build_msg_string (warning_string ? warning_string : "error"), 4915 build_msg_string (warning_string ? warning_string : "error"),
4916 p->thrown_tag, p->thrown_value, p->backtrace); 4916 p->thrown_tag, p->thrown_value, p->backtrace);
4917 warn_when_safe_lispobj (Qerror, current_warning_level (), errstr); 4917 warn_when_safe_lispobj (Qerror, current_warning_level (), errstr);
4918 } 4918 }
4919 else if (p->caught_error && !EQ (p->error_conditions, Qquit)) 4919 else if (p->caught_error && !EQ (p->error_conditions, Qquit))