[Emacs-diffs] Changes to emacs/lisp/autoinsert.el

[Stefan Monnier]

Index: emacs/lisp/autoinsert.el
diff -c emacs/lisp/autoinsert.el:1.38 emacs/lisp/autoinsert.el:1.39
*** emacs/lisp/autoinsert.el:1.38       Mon Nov 15 20:46:17 2004
--- emacs/lisp/autoinsert.el    Thu Mar 24 12:42:18 2005
***************
*** 1,6 ****
  ;;; autoinsert.el --- automatic mode-dependent insertion of text into new 
files
  
! ;; Copyright (C) 1985, 86, 87, 94, 95, 98, 2000, 03 Free Software Foundation, 
Inc.
  
  ;; Author: Charlie Martin <address@hidden>
  ;; Adapted-By: Daniel Pfeiffer <address@hidden>
--- 1,7 ----
  ;;; autoinsert.el --- automatic mode-dependent insertion of text into new 
files
  
! ;; Copyright (C) 1985, 1986, 1987, 1994, 1995, 1998, 2000, 2003, 2005
! ;;           Free Software Foundation, Inc.
  
  ;; Author: Charlie Martin <address@hidden>
  ;; Adapted-By: Daniel Pfeiffer <address@hidden>
***************
*** 33,39 ****
  ;;  auto-mode-alist.
  ;;
  ;;  To use:
! ;;     (add-hook 'find-file-hooks 'auto-insert)
  ;;     setq auto-insert-directory to an appropriate slash-terminated value
  ;;
  ;;  You can also customize the variable `auto-insert-mode' to load the
--- 34,40 ----
  ;;  auto-mode-alist.
  ;;
  ;;  To use:
! ;;     (add-hook 'find-file-hook 'auto-insert)
  ;;     setq auto-insert-directory to an appropriate slash-terminated value
  ;;
  ;;  You can also customize the variable `auto-insert-mode' to load the
***************
*** 67,73 ****
  `auto-insert-alist'.  When the insertion is marked as unmodified, you can
  save it with  \\[write-file] RET.
  This variable is used when the function `auto-insert' is called, e.g.
! when you do (add-hook 'find-file-hooks 'auto-insert).
  With \\[auto-insert], this is always treated as if it were t."
    :type '(choice (const :tag "Insert if possible" t)
                   (const :tag "Do nothing" nil)
--- 68,74 ----
  `auto-insert-alist'.  When the insertion is marked as unmodified, you can
  save it with  \\[write-file] RET.
  This variable is used when the function `auto-insert' is called, e.g.
! when you do (add-hook 'find-file-hook 'auto-insert).
  With \\[auto-insert], this is always treated as if it were t."
    :type '(choice (const :tag "Insert if possible" t)
                   (const :tag "Do nothing" nil)
***************
*** 326,335 ****
  insert a template for the file depending on the mode of the buffer."
    :global t :group 'auto-insert
    (if auto-insert-mode
!       (add-hook 'find-file-hooks 'auto-insert)
!     (remove-hook 'find-file-hooks 'auto-insert)))
  
  (provide 'autoinsert)
  
! ;;; arch-tag: 5b6630ac-c735-43cf-b097-b78c622af909
  ;;; autoinsert.el ends here
--- 327,336 ----
  insert a template for the file depending on the mode of the buffer."
    :global t :group 'auto-insert
    (if auto-insert-mode
!       (add-hook 'find-file-hook 'auto-insert)
!     (remove-hook 'find-file-hook 'auto-insert)))
  
  (provide 'autoinsert)
  
! ;; arch-tag: 5b6630ac-c735-43cf-b097-b78c622af909
  ;;; autoinsert.el ends here