Commit 99439846 authored by Vinicius Jose Latorre's avatar Vinicius Jose Latorre
Browse files

eval-and-compile

parent ad96a7ef
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.
......
......@@ -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)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment