Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-65

Merge from emacs--cvs-trunk--0

Patches applied:

 * emacs--cvs-trunk--0  (patch 425-445)

   - Remove "-face" suffix from gnus faces
   - Update from CVS
   - Remove "-face" suffix from MH-E faces
   - Remove "-face" suffix from cc-mode faces
   - Remove "-face" suffix from eshell faces
   - Remove "-face" suffix from ediff faces
   - Implement tty vertical-divider face
   - Rename vertical-divider face to vertical-border
   - Change escape-glyph color on dark backgrounds back to cyan
   - Update reference to renamed Buffer-menu-buffer face

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;