Eliminate time-stamp functions.

(ebnf-version): New version (3.5).
(ebnf-eps-finish-and-write): Replace time-stamp functions by
format-time-string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9af4910ea9a5eb8fac25e81014b4e48256f9995b..7a5d4a987290113af4939154fa0a0f0edc258935 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2001-02-05  Vinicius Jose Latorre  <vinicius@cpqd.com.br>
+
+       * ebnf2ps.el: Eliminate time-stamp functions.
+       (ebnf-version): New version (3.5).
+       (ebnf-eps-finish-and-write): Replace time-stamp functions by
+       format-time-string.
+
 2001-02-05  Gerd Moellmann  <gerd@gnu.org>
 
        * simple.el (next-line): Goto end-of-line before inserting a newline.

diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el
index a5e481b6b56cf33301587fff1c1653214f8f7866..1eb251f49c5e128972f7fd74aad2852814f7ef13 100644 (file)
--- a/lisp/progmodes/ebnf2ps.el
+++ b/lisp/progmodes/ebnf2ps.el
@@ -1,12 +1,12 @@
 ;;; ebnf2ps --- Translate an EBNF to a syntatic chart on PostScript
 
-;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
+;; 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: <2000/12/19 15:17:15 vinicius>
-;; Version:    3.4
+;; Time-stamp:        <2001/02/02 15:23:39 vinicius>
+;; Version:   3.5
 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/Emacs.html
 
 ;; This file is part of GNU Emacs.
@@ -26,8 +26,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-(defconst ebnf-version "3.4"
-  "ebnf2ps.el, v 3.4 <2000/12/19 vinicius>
+(defconst ebnf-version "3.5"
+  "ebnf2ps.el, v 3.5 <2001/02/02 vinicius>
+
 
 Vinicius's last change version.  When reporting bugs, please also
 report the version of Emacs, if any, that ebnf2ps was running with.
@@ -4384,7 +4385,7 @@ end
      "\n%%BoundingBox: 0 0 "
      (format "%d %d" (1+ ebnf-eps-upper-x) (1+ ebnf-eps-upper-y))
      "\n%%Title: " filename
-     "\n%%CreationDate: " (time-stamp-hh:mm:ss) " " (time-stamp-mon-dd-yyyy)
+     "\n%%CreationDate: " (format-time-string "%T %b %d %Y")
      "\n%%Creator: " (user-full-name) " (using ebnf2ps v" ebnf-version ")"
      "\n%%DocumentNeededResources: font "
      (or ebnf-fonts-required