comparison lisp/progmodes/ebnf2ps.el @ 54145:e3765a3df826

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

54144:02b649742717

;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004
;; Free Software Foundation, Inc.

;; Author: Vinicius Jose Latorre <[e-mail]>
;; Maintainer: Vinicius Jose Latorre <[e-mail]>
;; Time-stamp: <2004/02/24 20:48:53 vinicius>
;; Keywords: wp, ebnf, PostScript
;; Version: 4.0
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/

;; This file is part of GNU Emacs.

;;
;;
;; Acknowledgements
;; ----------------
;;
;; Thanks to Drew Adams <?@?> 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'
;;	commands.
;;    - some docs fix.

(require 'ps-print)

(and (string< ps-print-version "5.2.3")
     (error "`ebnf2ps' requires `ps-print' package version 5.2.3 or later"))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; User Variables:

	    ((quit error)
	     (ding)
	     (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))))))))))
    (cond
     ;; error occurred
     (error-msg
      (goto-char the-point)
      (if ebnf-stop-on-error

54145:e3765a3df826

;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004
;; Free Software Foundation, Inc.

;; Author: Vinicius Jose Latorre <[e-mail]>
;; Maintainer: Vinicius Jose Latorre <[e-mail]>
;; 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/

;; This file is part of GNU Emacs.

;;
;;
;; Acknowledgements
;; ----------------
;;
;; Thanks to Drew Adams <[e-mail]> 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'
;;	commands.
;;    - some docs fix.

(require 'ps-print)

(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:

	    ((quit error)
	     (ding)
	     (setq the-point (max (1- (point)) (point-min))
		   error-msg (concat error-msg ": "
				     (error-message-string data)
				     ", "
				     (and (string= error-msg "SYNTAX")
					  (format "at position %d "
						  the-point))
				     (format "in buffer \"%s\"."
					     (buffer-name)))))))))
    (cond
     ;; error occurred
     (error-msg
      (goto-char the-point)
      (if ebnf-stop-on-error