diff options
author | Vinicius Jose Latorre <[email protected]> | 2004-11-20 00:40:27 +0000 |
---|---|---|
committer | Vinicius Jose Latorre <[email protected]> | 2004-11-20 00:40:27 +0000 |
commit | 99439846b8c9db960720099e85d34b6504a86862 (patch) | |
tree | 9cc77b61bbb70701a779d53bc20fa309f3d66bff | |
parent | ad96a7efde9759ef7046173e73f3f439a2f1ff58 (diff) |
eval-and-compile
-rw-r--r-- | lisp/ChangeLog | 2 | ||||
-rw-r--r-- | lisp/progmodes/ebnf2ps.el | 23 |
2 files changed, 12 insertions, 13 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 34ce6b8043..d38a722439 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,7 @@ 2004-11-19 Vinicius Jose Latorre <[email protected]> * 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 52eedb18b4..1d2f8d630e 100644 --- a/lisp/progmodes/ebnf2ps.el +++ b/lisp/progmodes/ebnf2ps.el @@ -5,7 +5,7 @@ ;; Author: Vinicius Jose Latorre <[email protected]> ;; Maintainer: Vinicius Jose Latorre <[email protected]> -;; 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))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |