# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1176455292 0
# Node ID 4c69a90220e35e8f3b29651b63ace36037437bdc
# Parent  6540b56c4b3ddb262b62fc2397ae6d75288e046e
(ebnf-insert-style, ebnf-merge-style): Fix typos in error messages.

diff -r 6540b56c4b3d -r 4c69a90220e3 lisp/progmodes/ebnf2ps.el
--- a/lisp/progmodes/ebnf2ps.el	Fri Apr 13 09:05:43 2007 +0000
+++ b/lisp/progmodes/ebnf2ps.el	Fri Apr 13 09:08:12 2007 +0000
@@ -2609,7 +2609,7 @@
   (and (assoc name ebnf-style-database)
        (error "Style name already exists: %s" name))
   (or (assoc inherits ebnf-style-database)
-      (error "Style inheritance name does'nt exist: %s" inherits))
+      (error "Style inheritance name doesn't exist: %s" inherits))
   (setq ebnf-style-database
 	(cons (cons name (cons inherits (ebnf-check-style-values values)))
 	      ebnf-style-database)))
@@ -2639,7 +2639,7 @@
 See `ebnf-style-database' documentation."
   (interactive "SStyle name: \nXStyle values: ")
   (let ((style (or (assoc name ebnf-style-database)
-		   (error "Style name does'nt exist: %s" name)))
+		   (error "Style name doesn't exist: %s" name)))
 	(merge (ebnf-check-style-values values))
 	val elt new check)
     ;; modify value of existing variables