[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/ebnf2ps.el
From: |
Vinicius Jose Latorre |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/ebnf2ps.el |
Date: |
Fri, 19 Nov 2004 19:46:19 -0500 |
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)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;