Mercurial > emacs
changeset 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 | b31dca5987ad |
| files | lisp/ChangeLog lisp/progmodes/ebnf2ps.el |
| diffstat | 2 files changed, 12 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Nov 20 00:33:10 2004 +0000 +++ b/lisp/ChangeLog Sat Nov 20 00:40:27 2004 +0000 @@ -1,7 +1,7 @@ 2004-11-19 Vinicius Jose Latorre <viniciusjl@ig.com.br> * progmodes/ebnf2ps.el: Fix typos. Insert :version tag into all - defgroup and defcustom. + defgroup and defcustom. Eliminate eval-and-compile usage. * progmodes/ebnf-otz.el: Fix typos.
--- 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))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;