diff options
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2004-11-20 00:40:27 +0000 |
|---|---|---|
| committer | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2004-11-20 00:40:27 +0000 |
| commit | 99439846b8c9db960720099e85d34b6504a86862 (patch) | |
| tree | 9cc77b61bbb70701a779d53bc20fa309f3d66bff /lisp/progmodes/ebnf2ps.el | |
| parent | ad96a7efde9759ef7046173e73f3f439a2f1ff58 (diff) | |
| download | emacs-99439846b8c9db960720099e85d34b6504a86862.tar.gz | |
eval-and-compile
Diffstat (limited to 'lisp/progmodes/ebnf2ps.el')
| -rw-r--r-- | lisp/progmodes/ebnf2ps.el | 23 |
1 files changed, 11 insertions, 12 deletions
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 <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))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |