mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 23:10:47 -08:00
Code Issues Projects Releases Wiki Activity

For compatibility with Emacs 20, define assq-delete-all if it's not defined.

Browse source
This commit is contained in:
Vinicius Jose Latorre 2004-02-26 00:44:29 +00:00
parent dd341dd9c2
commit ea946fccfb
2 changed files with 30 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2004-02-25 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* ebnf2ps.el: Doc fix. For compatibility with Emacs 20, define
assq-delete-all if it's not defined.
(ebnf-generate-region): Code fix.
2004-02-24 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* ebnf-abn.el: New file, implements an ABNF parser.

32
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/02/24 20:48:53 vinicius>
;; Time-stamp: <2004/02/25 20:17:43 vinicius>
;; Keywords: wp, ebnf, PostScript
;; Version: 4.0
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
@ -1041,7 +1041,7 @@ Please send all bug fixes and enhancements to
;; Acknowledgements
;; ----------------
;;
;; Thanks to Drew Adams <?@?> for suggestions:
;; Thanks to Drew Adams <drew.adams@oracle.com> for suggestions:
;; - `ebnf-production-name-p', `ebnf-stop-on-error',
;; `ebnf-file-suffix-regexp'and `ebnf-special-show-delimiter' variables.
;; - `ebnf-delete-style', `ebnf-eps-file' and `ebnf-eps-directory'
@ -1065,6 +1065,22 @@ Please send all bug fixes and enhancements to
(and (string< ps-print-version "5.2.3")
(error "`ebnf2ps' requires `ps-print' package version 5.2.3 or later"))
;; 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.
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))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; User Variables:
@ -4471,12 +4487,12 @@ killed after process termination."
(setq the-point (max (1- (point)) (point-min))
error-msg (concat error-msg ": "
(error-message-string data)
(if (string= error-msg "SYNTAX")
(format ". At %d in buffer \"%s\"."
the-point
(buffer-name))
(format ". In buffer \"%s\"."
(buffer-name))))))))))
", "
(and (string= error-msg "SYNTAX")
(format "at position %d "
the-point))
(format "in buffer \"%s\"."
(buffer-name)))))))))
(cond
;; error occurred
(error-msg