diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-06-23 16:07:51 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-06-23 16:07:51 +0000 |
| commit | 6347aef3f4fd1d09ecbec88cd3bbcf3269f0c7f4 (patch) | |
| tree | 0301f5deeab1ff2d428c0eee9b665c39199c8e0a /src/eval.c | |
| parent | 7cff3dc002aee65eba93623a5b82db98a57b58c6 (diff) | |
| download | emacs-6347aef3f4fd1d09ecbec88cd3bbcf3269f0c7f4.tar.gz | |
(Fdefvar, Fdefconst, Feval, Ffuncall): Follow error conventions.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/eval.c b/src/eval.c index 445eb283114..8ad289fd51f 100644 --- a/src/eval.c +++ b/src/eval.c @@ -785,7 +785,7 @@ usage: (defvar SYMBOL &optional INITVALUE DOCSTRING) */) 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 @@ usage: (defconst SYMBOL INITVALUE [DOCSTRING]) */) 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 @@ DEFUN ("eval", Feval, Seval, 1, 1, 0, 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 @@ usage: (funcall FUNCTION &rest ARGUMENTS) */) 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; |