[Emacs-diffs] Changes to emacs/lisp/progmodes/ebnf2ps.el

[Vinicius Jose Latorre]

Index: emacs/lisp/progmodes/ebnf2ps.el
diff -c emacs/lisp/progmodes/ebnf2ps.el:1.27 
emacs/lisp/progmodes/ebnf2ps.el:1.28
*** emacs/lisp/progmodes/ebnf2ps.el:1.27        Sat Nov 20 00:33:10 2004
--- emacs/lisp/progmodes/ebnf2ps.el     Sat Nov 20 00:40:27 2004
***************
*** 5,11 ****
  
  ;; Author: Vinicius Jose Latorre <address@hidden>
  ;; Maintainer: Vinicius Jose Latorre <address@hidden>
! ;; Time-stamp: <2004/11/19 22:24:27 vinicius>
  ;; Keywords: wp, ebnf, PostScript
  ;; Version: 4.2
  ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
--- 5,11 ----
  
  ;; Author: Vinicius Jose Latorre <address@hidden>
  ;; Maintainer: Vinicius Jose Latorre <address@hidden>
! ;; Time-stamp: <2004/11/19 22:30:34 vinicius>
  ;; Keywords: wp, ebnf, PostScript
  ;; Version: 4.2
  ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
***************
*** 1114,1132 ****
  
  
  ;; 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))))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--- 1114,1131 ----
  
  
  ;; to avoid gripes with Emacs 20
! (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)))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;