Mercurial > emacs
diff lisp/progmodes/ebnf2ps.el @ 38436:b174db545cfd
Some fixes to follow coding conventions.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Mon, 16 Jul 2001 12:23:00 +0000 |
parents | c2604e531b66 |
children | 73061d0eb82e |
line wrap: on
line diff
--- a/lisp/progmodes/ebnf2ps.el Mon Jul 16 12:22:17 2001 +0000 +++ b/lisp/progmodes/ebnf2ps.el Mon Jul 16 12:23:00 2001 +0000 @@ -1,11 +1,11 @@ -;;; ebnf2ps --- Translate an EBNF to a syntatic chart on PostScript +;;; ebnf2ps.el --- translate an EBNF to a syntatic chart on PostScript ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> ;; Keywords: wp, ebnf, PostScript -;; Time-stamp: <2001/02/02 15:23:39 vinicius> +;; Time-stamp: <2001-07-15 01:05:00 pavel> ;; Version: 3.5 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/Emacs.html @@ -1000,7 +1000,7 @@ ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; code: +;;; Code: (require 'ps-print) @@ -4974,7 +4974,7 @@ ;;(skip-chars-forward (concat chars "\240-\377") ebnf-limit) (skip-chars-forward (concat chars ebnf-8-bit-chars) ebnf-limit) (if (or (eobp) (/= (following-char) eos-char)) - (error "Illegal %s: missing `%c'." kind eos-char) + (error "Illegal %s: missing `%c'" kind eos-char) (forward-char) (1- (point)))))) @@ -4992,7 +4992,7 @@ (goto-char (+ (point) n 1)))) (if (= (preceding-char) ?\") (1- (point)) - (error "Missing `\"'."))) + (error "Missing `\"'"))) (defun ebnf-trim-right (str) @@ -5300,5 +5300,4 @@ (provide 'ebnf2ps) - ;;; ebnf2ps.el ends here