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

2 files changed, 30 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3394f764c8d..dd667ff8e90 100644
--- 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 352767e508e..d13ed80fe5c 100644
--- 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))))
+
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; 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