From: morioka <morioka>
Date: Wed, 14 Oct 1998 05:34:58 +0000 (+0000)
Subject: (sinfo-to-texi): Insert comment about it is generated automatically
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7bc0216d057ca51e8d795dbe0a3184d3a9d10c74;p=elisp%2Fsinfo.git

(sinfo-to-texi): Insert comment about it is generated automatically
from SGML source file.
---

diff --git a/sinfo.el b/sinfo.el
index 4695897..8360d9e 100644
--- a/sinfo.el
+++ b/sinfo.el
@@ -1,6 +1,6 @@
 ;;; sinfo.el --- sinfo to Texinfo converter
 
-;; Copyright (C) 1996,1997 MORIOKA Tomohiko
+;; Copyright (C) 1996,1997,1998 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Version: $Id: sinfo.el,v 3.7 1997/01/31 13:46:10 morioka Exp $
@@ -172,7 +172,9 @@
 	(goto-char (point-min))
 	(and (re-search-forward "@setfilename$" nil t)
 	     (replace-match
-	      (format "@setfilename %s" fname)
+	      (format
+	       "@c Generated automatically from %s by sinfo .
+@setfilename %s" (file-name-nondirectory src-name) fname)
 	      ))
 	(and (re-search-forward "@settitle{}" nil t)
 	     (replace-match