(sinfo-to-texi): Insert comment about it is generated automatically

[elisp/sinfo.git] / sinfo.el

diff --git a/sinfo.el b/sinfo.el
index 4695897..8360d9e 100644 (file)
--- 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