Mercurial > emacs
diff lisp/progmodes/ebnf2ps.el @ 58340:6ae939127d99
eval-and-compile
author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
---|---|
date | Sat, 20 Nov 2004 00:40:27 +0000 |
parents | db40ada53c36 |
children | 87f9bb9d3718 f2ebccfa87d4 |
line wrap: on
line diff
--- a/lisp/progmodes/ebnf2ps.el Sat Nov 20 00:33:10 2004 +0000 +++ b/lisp/progmodes/ebnf2ps.el Sat Nov 20 00:40:27 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/11/19 22:24:27 vinicius> +;; 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,19 +1114,18 @@ ;; 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. +(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)))) + (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))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;