# HG changeset patch
# User Vinicius Jose Latorre <viniciusjl@ig.com.br>
# Date 1077756269 0
# Node ID e3765a3df8269b911f35046d9d1f9450d7eaa57b
# Parent  02b649742717e6fcd47f26675112e27677d663c8
For compatibility with Emacs 20, define assq-delete-all if it's not defined.

diff -r 02b649742717 -r e3765a3df826 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Feb 25 22:39:54 2004 +0000
+++ b/lisp/ChangeLog	Thu Feb 26 00:44:29 2004 +0000
@@ -1,3 +1,9 @@
+2004-02-25  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
+
+	* ebnf2ps.el: Doc fix.  For compatibility with Emacs 20, define
+	assq-delete-all if it's not defined.
+	(ebnf-generate-region): Code fix.
+
 2004-02-24  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
 	* ebnf-abn.el: New file, implements an ABNF parser.
diff -r 02b649742717 -r e3765a3df826 lisp/progmodes/ebnf2ps.el
--- a/lisp/progmodes/ebnf2ps.el	Wed Feb 25 22:39:54 2004 +0000
+++ b/lisp/progmodes/ebnf2ps.el	Thu Feb 26 00:44:29 2004 +0000
@@ -5,7 +5,7 @@
 
 ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
 ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
-;; Time-stamp: <2004/02/24 20:48:53 vinicius>
+;; Time-stamp: <2004/02/25 20:17:43 vinicius>
 ;; Keywords: wp, ebnf, PostScript
 ;; Version: 4.0
 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
@@ -1041,7 +1041,7 @@
 ;; Acknowledgements
 ;; ----------------
 ;;
-;; Thanks to Drew Adams <?@?> for suggestions:
+;; Thanks to Drew Adams <drew.adams@oracle.com> for suggestions:
 ;;    - `ebnf-production-name-p', `ebnf-stop-on-error',
 ;;	`ebnf-file-suffix-regexp'and `ebnf-special-show-delimiter' variables.
 ;;    - `ebnf-delete-style', `ebnf-eps-file' and `ebnf-eps-directory'
@@ -1065,6 +1065,22 @@
 (and (string< ps-print-version "5.2.3")
      (error "`ebnf2ps' requires `ps-print' package version 5.2.3 or later"))
 
+
+;; to avoid gripes with Emacs 20
+(eval-and-compile
+  (or (fboundp 'assq-delete-all)
+      (defun assq-delete-all (key alist)
+	"Delete from ALIST all elements whose car is KEY.
+Return the modified alist.
+Elements of ALIST that are not conses are ignored."
+	(let ((tail alist))
+	  (while tail
+	    (if (and (consp (car tail))
+		     (eq (car (car tail)) key))
+		(setq alist (delq (car tail) alist)))
+	    (setq tail (cdr tail)))
+	  alist))))
+
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; User Variables:
@@ -4471,12 +4487,12 @@
 	     (setq the-point (max (1- (point)) (point-min))
 		   error-msg (concat error-msg ": "
 				     (error-message-string data)
-				     (if (string= error-msg "SYNTAX")
-					 (format ". At %d in buffer \"%s\"."
-						 the-point
-						 (buffer-name))
-				       (format ". In buffer \"%s\"."
-					       (buffer-name))))))))))
+				     ", "
+				     (and (string= error-msg "SYNTAX")
+					  (format "at position %d "
+						  the-point))
+				     (format "in buffer \"%s\"."
+					     (buffer-name)))))))))
     (cond
      ;; error occurred
      (error-msg