procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

eval-and-compile

Browse source
This commit is contained in:
Vinicius Jose Latorre 2004-11-20 00:40:27 +00:00
parent ad96a7efde
commit 99439846b8
2 changed files with 12 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -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.

23
lisp/progmodes/ebnf2ps.el
View file

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