For compatibility with Emacs 20, define assq-delete-all if it's not defined.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3394f764c8d4bf98e973dbdf28d2e1be470fe022..dd667ff8e909262c9d9b1afe458a624cea93a523 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el
index 352767e508e1e69cddd5ac9e46a094961869e105..d13ed80fe5c88968f3d79653531cf07272f57f26 100644 (file)
--- a/lisp/progmodes/ebnf2ps.el
+++ b/lisp/progmodes/ebnf2ps.el
@@ -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 @@ Please send all bug fixes and enhancements to
 ;; 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 @@ Please send all bug fixes and enhancements to
 (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))))
+
 \f
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; User Variables:
@@ -4471,12 +4487,12 @@ killed after process termination."
             (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