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)))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;