Mercurial > emacs
diff src/eval.c @ 63697:9f617bb41e22
(Fdefvar, Fdefconst, Feval, Ffuncall): Follow error conventions.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 23 Jun 2005 16:07:51 +0000 |
| parents | e44f5953ff6a |
| children | 60a9b2133cf1 b7da78284d4c |
line wrap: on
line diff
--- a/src/eval.c Thu Jun 23 16:06:58 2005 +0000 +++ b/src/eval.c Thu Jun 23 16:07:51 2005 +0000 @@ -785,7 +785,7 @@ sym = Fcar (args); tail = Fcdr (args); if (!NILP (Fcdr (Fcdr (tail)))) - error ("too many arguments"); + error ("Too many arguments"); tem = Fdefault_boundp (sym); if (!NILP (tail)) @@ -845,7 +845,7 @@ sym = Fcar (args); if (!NILP (Fcdr (Fcdr (Fcdr (args))))) - error ("too many arguments"); + error ("Too many arguments"); tem = Feval (Fcar (Fcdr (args))); if (!NILP (Vpurify_flag)) @@ -2037,7 +2037,7 @@ if (max_lisp_eval_depth < 100) max_lisp_eval_depth = 100; if (lisp_eval_depth > max_lisp_eval_depth) - error ("Lisp nesting exceeds max-lisp-eval-depth"); + error ("Lisp nesting exceeds `max-lisp-eval-depth'"); } original_fun = Fcar (form); @@ -2733,7 +2733,7 @@ if (max_lisp_eval_depth < 100) max_lisp_eval_depth = 100; if (lisp_eval_depth > max_lisp_eval_depth) - error ("Lisp nesting exceeds max-lisp-eval-depth"); + error ("Lisp nesting exceeds `max-lisp-eval-depth'"); } backtrace.next = backtrace_list;