paul@UUNET.UU.NET (Paul Hudson) (03/30/89)
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))))))