🚀 go-pugleaf

emacs-version: GNU Emacs 18.55.4 of Tue Feb 20 1990 on hoswjc (berkeley-unix)

I added a y-or-n-p to autoinsert.el.  I found it convenient to have a
template automagically inserted when I created a new file, but found
it annoying when it happened because of a typo, or if I didn't want
the default template.

I also added the code to assure that insert-auto-insert-files isn't
added to find-file-not-found-hooks if it's already there.

Help yourself to this set of changes,
Mike Balenger

----------------------------------------------------------------------
<cute quote>            Michael S. Balenger             (908) 949-8789
<cute disclaimer>       AT&T Bell Labs
M_Balenger@att.com      Room 1L-405
msb@hos1cad.att.com     Crawfords Corner Road
att!hos1cad!msb         Holmdel, NJ   07733-1988



*** autoinsert.el.orig	Wed Sep  5 09:04:24 1990
--- autoinsert.el	Wed Sep  5 09:09:25 1990
***************
*** 78,91 ****
          (setq alist (cdr alist))))
  
      ;; Now, if we found an appropriate insert file, insert it
!     (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))))))
  
  ;; Make this feature take effect when a nonexistent file is visited.
! (setq find-file-not-found-hooks
!       (cons 'insert-auto-insert-files
! 	    find-file-not-found-hooks))
--- 78,92 ----
          (setq alist (cdr alist))))
  
      ;; Now, if we found an appropriate insert file, insert it
!     (if (and insert-file
! 	     (y-or-n-p (format "auto-insert \"%s\" " 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))))))
  
  ;; Make this feature take effect when a nonexistent file is visited.
! (or (memq 'insert-auto-insert-files find-file-not-found-hooks)
!     (setq find-file-not-found-hooks 
! 	  (cons 'insert-auto-insert-files find-file-not-found-hooks)))