Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!UUNET.UU.NET!mcvax!moncam!paul
From: mcvax!moncam!paul@UUNET.UU.NET (Paul Hudson)
Newsgroups: gnu.emacs.bug
Subject: autoinsert files should cleart modification flag.
Message-ID: <8903301500.AA24626@marvin.moncam.uucp>
Date: 30 Mar 89 15:00:22 GMT
Sender: daemon@tut.cis.ohio-state.edu
Distribution: gnu
Organization: GNUs Not Usenet
Lines: 35


I use the autoinsert package. but find it irritating when I misspell an existing
file, and so get a new file with the auto-inserted contents, that the file is marked modified
and so I have to confirm the buffer deletion. The fix is of course trivial, and so here it is.

Paul Hudson 

Snail mail: Monotype ADG	Email:	...!ukc!acorn!moncam!paul
	    Science Park,		paul@moncam.co.uk
	    Milton Road,	"Sun Microsysytems:
	    Cambridge,		 The Company is Arrogant (TM)"
	    CB4 4FQ


*** /usr/local/emacs/lisp/autoinsert.el	Tue Feb 28 09:12:53 1989
--- /home/paul/emacs/autoinsert.el	Thu Mar 30 15:53:01 1989
***************
*** 81,87 ****
      (if insert-file
          (let ((file (concat auto-insert-directory insert-file)))
            (if (file-readable-p file)
!               (insert-file-contents file)
              (message "Auto-insert: file %s not found" file)
  	    (sleep-for 1))))))
  
--- 81,89 ----
      (if insert-file
          (let ((file (concat auto-insert-directory insert-file)))
            (if (file-readable-p file)
! 	      (progn
! 		(insert-file-contents file)
! 		(not-modified))
              (message "Auto-insert: file %s not found" file)
  	    (sleep-for 1))))))