From: Vinicius Jose Latorre Date: Sat, 20 Nov 2004 00:40:27 +0000 (+0000) Subject: eval-and-compile X-Git-Tag: ttn-vms-21-2-B4~3827 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=99439846b8c9db960720099e85d34b6504a86862;p=emacs.git eval-and-compile --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 34ce6b8043b..d38a7224390 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,7 @@ 2004-11-19 Vinicius Jose Latorre * 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. diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el index 52eedb18b4d..1d2f8d630e1 100644 --- a/lisp/progmodes/ebnf2ps.el +++ b/lisp/progmodes/ebnf2ps.el @@ -5,7 +5,7 @@ ;; Author: Vinicius Jose Latorre ;; Maintainer: Vinicius Jose Latorre -;; 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 @@ Please send all bug fixes and enhancements to ;; 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))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;