[bpt/emacs.git] / lisp / autoinsert.el

;;; autoinsert.el --- automatic mode-dependent insertion of text into new files

;; Copyright (C) 1985, 86, 87, 94, 95, 98 Free Software Foundation, Inc.

;; Author: Charlie Martin <crm@cs.duke.edu>
;; Adapted-By: Daniel.Pfeiffer@Informatik.START.dbp.de, fax (+49 69) 7588-2389
;; Keywords: convenience
;; Maintainer: FSF

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:

;;  The following defines an association list for text to be
;;  automatically inserted when a new file is created, and a function
;;  which automatically inserts these files; the idea is to insert
;;  default text much as the mode is automatically set using
;;  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
;;  package.  Alternatively, add the following to your .emacs file:
;;  (auto-insert-mode 1)
;;
;;  Author:  Charlie Martin
;;           Department of Computer Science and
;;           National Biomedical Simulation Resource
;;           Box 3709
;;           Duke University Medical Center
;;           Durham, NC 27710
;;	      (crm@cs.duke.edu,mcnc!duke!crm) 

;;; Code:

(defgroup auto-insert nil
  "Automatic mode-dependent insertion of text into new files."
  :prefix "auto-insert-"
  :group 'files
  :group 'convenience)


(defcustom auto-insert-mode nil
  "Toggle auto-insert-mode.
You must modify via \\[customize] for this variable to have an effect."
  :set (lambda (symbol value)
	 (auto-insert-mode (or value 0)))
  :initialize 'custom-initialize-default
  :type 'boolean
  :group 'auto-insert
  :require 'autoinsert)

(defcustom auto-insert 'not-modified
  "*Controls automatic insertion into newly found empty files:
	nil	do nothing
	t	insert if possible
	other	insert if possible, but mark as unmodified.
Insertion is possible when something appropriate is found in
`auto-insert-alist'.  When the insertion is marked as unmodified, you can
save it with  \\[write-file] RET.
This variable is used when `auto-insert' is called as a function, 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)
                 (other :tag "insert if possible, mark as unmodified." 
                        not-modified))
  :group 'auto-insert)

(defcustom auto-insert-query 'function
  "*If non-`nil', ask user before auto-inserting.
When this is `function', only ask when called non-interactively."
  :type '(choice (const :tag "Don't ask" nil)
                 (const :tag "Ask if called non-interactively" function)
                 (other :tag "Ask" t))
  :group 'auto-insert)

(defcustom auto-insert-prompt "Perform %s auto-insertion? "
  "*Prompt to use when querying whether to auto-insert.
If this contains a %s, that will be replaced by the matching rule."
  :type 'string
  :group 'auto-insert)


(defcustom auto-insert-alist
  '((("\\.\\([Hh]\\|hh\\|hpp\\)\\'" . "C / C++ header")
     (upcase (concat (file-name-nondirectory
		      (substring buffer-file-name 0 (match-beginning 0)))
		     "_"
		     (substring buffer-file-name (1+ (match-beginning 0)))))
     "#ifndef " str \n
     "#define " str "\n\n"
     _ "\n\n#endif")

    (("\\.\\([Cc]\\|cc\\|cpp\\)\\'" . "C / C++ program")
     nil
     "#include \""
     ;; nop without latest cc-mode
     (and (fboundp 'c-companion-file)
	  ;(file-readable-p (c-companion-file 'name))
	  (file-name-nondirectory (c-companion-file 'name))) & ?\"
     | -10)

    ("[Mm]akefile\\'" . "makefile.inc")

    (html-mode . (lambda () (sgml-tag "html")))
    
    (plain-tex-mode . "tex-insert.tex")
    (bibtex-mode . "tex-insert.tex")
    (latex-mode
     ;; should try to offer completing read for these
     "options, RET: "
     "\\documentstyle[" str & ?\] | -1
     ?{ (read-string "class: ") "}\n"
     ("package, %s: "
      "\\usepackage[" (read-string "options, RET: ") & ?\] | -1 ?{ str "}\n")
     _ "\n\\begin{document}\n" _
     "\n\\end{document}")

    (("/bin/.*[^/]\\'" . "Shell-Script mode magic number")
     lambda ()
       (if (eq major-mode default-major-mode)
	 (sh-mode)))
    
    (ada-mode . ada-header)

    (("\\.el\\'" . "Emacs Lisp header")
     "Short description: "
     ";;; " (file-name-nondirectory (buffer-file-name)) " --- " str "

;; Copyright (C) " (substring (current-time-string) -4) " by "
 (getenv "ORGANIZATION") | "Free Software Foundation, Inc." "

;; Author: " (user-full-name)
'(if (search-backward "&" (save-excursion (beginning-of-line 1) (point)) t)
     (replace-match (capitalize (user-login-name)) t t))
'(end-of-line 1) " <" (user-login-name) ?@ (system-name) ">
;; Keywords: "
 '(require 'finder)
 ;;'(setq v1 (apply 'vector (mapcar 'car finder-known-keywords)))
 '(setq v1 (mapcar (lambda (x) (list (symbol-name (car x))))
		   finder-known-keywords)
	v2 (mapconcat (lambda (x) (format "%10.0s:  %s" (car x) (cdr x)))
	   finder-known-keywords
	   "\n"))
 ((let ((minibuffer-help-form v2))
    (completing-read "Keyword, C-h: " v1 nil t))
    str ", ") & -2 "

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:

;; " _ "

;;; Code:


;;; " (file-name-nondirectory (buffer-file-name)) " ends here"))
  "A list specifying text to insert by default into a new file.
Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION).
CONDITION maybe a regexp that must match the new file's name, or it may be
a symbol that must match the major mode for this element to apply.
Only the first matching element is effective.
Optional DESCRIPTION is a string for filling `auto-insert-prompt'.
ACTION may be a skeleton to insert (see `skeleton-insert'), an absolute
file-name or one relative to `auto-insert-directory' or a function to call.
ACTION may also be a vector containing several successive single actions as
described above, e.g. [\"header.insert\" date-and-author-update]."
  :type 'sexp
  :group 'auto-insert)


;; Establish a default value for auto-insert-directory
(defcustom auto-insert-directory "~/insert/"
  "*Directory from which auto-inserted files are taken."
  :type 'directory
  :group 'auto-insert)


;;;###autoload
(defun auto-insert ()
  "Insert default contents into a new file if `auto-insert' is non-nil.
Matches the visited file name against the elements of `auto-insert-alist'."
  (interactive)
  (and (not buffer-read-only)
       (or (eq this-command 'auto-insert)
	   (and auto-insert
		(bobp) (eobp)))
       (let ((alist auto-insert-alist)
	     case-fold-search cond desc action)
	 (goto-char 1)
	 ;; find first matching alist entry
	 (while alist
	   (if (atom (setq cond (car (car alist))))
	       (setq desc cond)
	     (setq desc (cdr cond)
		   cond (car cond)))
	   (if (if (symbolp cond)
		   (eq cond major-mode)
		 (string-match cond buffer-file-name))
	       (setq action (cdr (car alist))
		     alist nil)
	     (setq alist (cdr alist))))

	 ;; Now, if we found something, do it
	 (and action
	      (if (stringp action)
		  (file-readable-p (concat auto-insert-directory action))
		t)
	      (if auto-insert-query
		  (or (if (eq auto-insert-query 'function)
			  (eq this-command 'auto-insert))
		      (y-or-n-p (format auto-insert-prompt desc)))
		t)
	      (mapcar
	       (lambda (action)
		 (if (stringp action)
		     (if (file-readable-p
			  (setq action (concat auto-insert-directory action)))
			 (insert-file-contents action))
		   (save-window-excursion
		     ;; make buffer visible before skeleton or function
		     ;; which might ask the user for something
		     (switch-to-buffer (current-buffer))
		     (if (and (consp action)
			      (not (eq (car action) 'lambda)))
			 (skeleton-insert action)
		       (funcall action)))))
	       (if (vectorp action)
		   action
		 (vector action))))
	 (and (buffer-modified-p)
	      (not (eq this-command 'auto-insert))
	      (set-buffer-modified-p (eq auto-insert t))))))


;;;###autoload
(defun define-auto-insert (condition action &optional after)
  "Associate CONDITION with (additional) ACTION in `auto-insert-alist'.
Optional AFTER means to insert action after all existing actions for CONDITION,
or if CONDITION had no actions, after all other CONDITIONs."
  (let ((elt (assoc condition auto-insert-alist)))
    (if elt
	(setcdr elt
		(if (vectorp (cdr elt))
		    (vconcat (if after (cdr elt))
			     (if (vectorp action) action (vector action))
			     (if after () (cdr elt)))
		  (if after
		      (vector (cdr elt) action)
		    (vector action (cdr elt)))))
      (if after
	  (nconc auto-insert-alist (list (cons condition action)))
	(setq auto-insert-alist (cons (cons condition action)
				      auto-insert-alist))))))

;;;###autoload
(defun auto-insert-mode (&optional arg)
  "Toggle auto-insert mode.
With prefix ARG, turn auto-insert mode on if and only if ARG is positive.
Returns the new status of auto-insert mode (non-nil means on).

When auto-insert mode is enabled, when new files are created you can
insert a template for the file depending on the mode of the buffer."
  (interactive "P")
  (let ((on-p (if arg
		  (> (prefix-numeric-value arg) 0)
		(not auto-insert-mode))))
    (if on-p
	(add-hook 'find-file-hooks 'auto-insert)
      (remove-hook 'find-file-hooks 'auto-insert))
    (if (interactive-p)
	(message "Auto-insert now %s." (if on-p "on" "off")))
    (setq auto-insert-mode on-p)
    ))

(if auto-insert-mode
    (auto-insert-mode 1))

(provide 'autoinsert)

;;; autoinsert.el ends here
Commit	Line	Data
c0274f38	1	;;; autoinsert.el --- automatic mode-dependent insertion of text into new files
b578f267	2
4605a50d	3	;; Copyright (C) 1985, 86, 87, 94, 95, 98 Free Software Foundation, Inc.
9750e079	4
e5167999	5	;; Author: Charlie Martin <crm@cs.duke.edu>
c11af8a5	6	;; Adapted-By: Daniel.Pfeiffer@Informatik.START.dbp.de, fax (+49 69) 7588-2389
f5f727f8	7	;; Keywords: convenience
4228277d	8	;; Maintainer: FSF
b1d6ae0b JB	9
	10	;; This file is part of GNU Emacs.
	11
	12	;; GNU Emacs is free software; you can redistribute it and/or modify
	13	;; it under the terms of the GNU General Public License as published by
e5167999	14	;; the Free Software Foundation; either version 2, or (at your option)
b1d6ae0b JB	15	;; any later version.
	16
	17	;; GNU Emacs is distributed in the hope that it will be useful,
	18	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	19	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	20	;; GNU General Public License for more details.
	21
	22	;; You should have received a copy of the GNU General Public License
b578f267 EN	23	;; along with GNU Emacs; see the file COPYING. If not, write to the
	24	;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
	25	;; Boston, MA 02111-1307, USA.
b1d6ae0b	26
e5167999	27	;;; Commentary:
b1d6ae0b	28
c11af8a5 KH	29	;; The following defines an association list for text to be
	30	;; automatically inserted when a new file is created, and a function
	31	;; which automatically inserts these files; the idea is to insert
	32	;; default text much as the mode is automatically set using
	33	;; auto-mode-alist.
	34	;;
	35	;; To use:
	36	;; (add-hook 'find-file-hooks 'auto-insert)
	37	;; setq auto-insert-directory to an appropriate slash-terminated value
	38	;;
6c5b39e4 SE	39	;; You can also customize the variable `auto-insert-mode' to load the
	40	;; package. Alternatively, add the following to your .emacs file:
	41	;; (auto-insert-mode 1)
	42	;;
c11af8a5 KH	43	;; Author: Charlie Martin
	44	;; Department of Computer Science and
	45	;; National Biomedical Simulation Resource
	46	;; Box 3709
	47	;; Duke University Medical Center
	48	;; Durham, NC 27710
	49	;; (crm@cs.duke.edu,mcnc!duke!crm)
b1d6ae0b	50
e5167999 ER	51	;;; Code:
e5167999 ER	52
6c5b39e4 SE	53	(defgroup auto-insert nil
	54	"Automatic mode-dependent insertion of text into new files."
	55	:prefix "auto-insert-"
f5f727f8 DN	56	:group 'files
f5f727f8 DN	57	:group 'convenience)
6c5b39e4 SE	58
	59
	60	(defcustom auto-insert-mode nil
	61	"Toggle auto-insert-mode.
	62	You must modify via \\[customize] for this variable to have an effect."
	63	:set (lambda (symbol value)
	64	(auto-insert-mode (or value 0)))
	65	:initialize 'custom-initialize-default
	66	:type 'boolean
	67	:group 'auto-insert
	68	:require 'autoinsert)
	69
	70	(defcustom auto-insert 'not-modified
c11af8a5 KH	71	"*Controls automatic insertion into newly found empty files:
	72	nil do nothing
	73	t insert if possible
	74	other insert if possible, but mark as unmodified.
	75	Insertion is possible when something appropriate is found in
	76	`auto-insert-alist'. When the insertion is marked as unmodified, you can
	77	save it with \\[write-file] RET.
	78	This variable is used when `auto-insert' is called as a function, e.g.
	79	when you do (add-hook 'find-file-hooks 'auto-insert).
6c5b39e4	80	With \\[auto-insert], this is always treated as if it were `t'."
4605a50d DL	81	:type '(choice (const :tag "Insert if possible" t)
4605a50d DL	82	(const :tag "Do nothing" nil)
5c213454	83	(other :tag "insert if possible, mark as unmodified."
4605a50d	84	not-modified))
6c5b39e4	85	:group 'auto-insert)
c11af8a5	86
6c5b39e4	87	(defcustom auto-insert-query 'function
c11af8a5	88	"*If non-`nil', ask user before auto-inserting.
6c5b39e4	89	When this is `function', only ask when called non-interactively."
5c213454 AS	90	:type '(choice (const :tag "Don't ask" nil)
	91	(const :tag "Ask if called non-interactively" function)
	92	(other :tag "Ask" t))
6c5b39e4	93	:group 'auto-insert)
c11af8a5	94
6c5b39e4	95	(defcustom auto-insert-prompt "Perform %s auto-insertion? "
c11af8a5	96	"*Prompt to use when querying whether to auto-insert.
6c5b39e4 SE	97	If this contains a %s, that will be replaced by the matching rule."
	98	:type 'string
	99	:group 'auto-insert)
c11af8a5 KH	100
c11af8a5 KH	101
6c5b39e4	102	(defcustom auto-insert-alist
c11af8a5 KH	103	'((("\\.\\([Hh]\\\|hh\\\|hpp\\)\\'" . "C / C++ header")
	104	(upcase (concat (file-name-nondirectory
	105	(substring buffer-file-name 0 (match-beginning 0)))
	106	"_"
	107	(substring buffer-file-name (1+ (match-beginning 0)))))
	108	"#ifndef " str \n
	109	"#define " str "\n\n"
	110	_ "\n\n#endif")
	111
	112	(("\\.\\([Cc]\\\|cc\\\|cpp\\)\\'" . "C / C++ program")
	113	nil
	114	"#include \""
	115	;; nop without latest cc-mode
	116	(and (fboundp 'c-companion-file)
	117	;(file-readable-p (c-companion-file 'name))
	118	(file-name-nondirectory (c-companion-file 'name))) & ?\"
	119	\| -10)
	120
	121	("[Mm]akefile\\'" . "makefile.inc")
	122
d60ae75c	123	(html-mode . (lambda () (sgml-tag "html")))
c11af8a5 KH	124
	125	(plain-tex-mode . "tex-insert.tex")
	126	(bibtex-mode . "tex-insert.tex")
	127	(latex-mode
	128	;; should try to offer completing read for these
	129	"options, RET: "
	130	"\\documentstyle[" str & ?\] \| -1
	131	?{ (read-string "class: ") "}\n"
	132	("package, %s: "
	133	"\\usepackage[" (read-string "options, RET: ") & ?\] \| -1 ?{ str "}\n")
	134	_ "\n\\begin{document}\n" _
	135	"\n\\end{document}")
	136
	137	(("/bin/.*[^/]\\'" . "Shell-Script mode magic number")
	138	lambda ()
	139	(if (eq major-mode default-major-mode)
	140	(sh-mode)))
	141
	142	(ada-mode . ada-header)
	143
	144	(("\\.el\\'" . "Emacs Lisp header")
	145	"Short description: "
	146	";;; " (file-name-nondirectory (buffer-file-name)) " --- " str "
	147
	148	;; Copyright (C) " (substring (current-time-string) -4) " by "
	149	(getenv "ORGANIZATION") \| "Free Software Foundation, Inc." "
	150
	151	;; Author: " (user-full-name)
	152	'(if (search-backward "&" (save-excursion (beginning-of-line 1) (point)) t)
	153	(replace-match (capitalize (user-login-name)) t t))
	154	'(end-of-line 1) " <" (user-login-name) ?@ (system-name) ">
	155	;; Keywords: "
	156	'(require 'finder)
	157	;;'(setq v1 (apply 'vector (mapcar 'car finder-known-keywords)))
	158	'(setq v1 (mapcar (lambda (x) (list (symbol-name (car x))))
	159	finder-known-keywords)
	160	v2 (mapconcat (lambda (x) (format "%10.0s: %s" (car x) (cdr x)))
	161	finder-known-keywords
	162	"\n"))
	163	((let ((minibuffer-help-form v2))
	164	(completing-read "Keyword, C-h: " v1 nil t))
	165	str ", ") & -2 "
	166
	167	;; This file is part of GNU Emacs.
	168
	169	;; GNU Emacs is free software; you can redistribute it and/or modify
	170	;; it under the terms of the GNU General Public License as published by
	171	;; the Free Software Foundation; either version 2, or (at your option)
	172	;; any later version.
	173
	174	;; GNU Emacs is distributed in the hope that it will be useful,
	175	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	176	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	177	;; GNU General Public License for more details.
	178
	179	;; You should have received a copy of the GNU General Public License
	180	;; along with GNU Emacs; see the file COPYING. If not, write to
01bb7524 EN	181	;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
01bb7524 EN	182	;; Boston, MA 02111-1307, USA.
c11af8a5 KH	183
	184	;;; Commentary:
	185
	186	;; " _ "
	187
	188	;;; Code:
	189
	190
	191
	192	;;; " (file-name-nondirectory (buffer-file-name)) " ends here"))
b1d6ae0b	193	"A list specifying text to insert by default into a new file.
c11af8a5 KH	194	Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION).
	195	CONDITION maybe a regexp that must match the new file's name, or it may be
	196	a symbol that must match the major mode for this element to apply.
	197	Only the first matching element is effective.
	198	Optional DESCRIPTION is a string for filling `auto-insert-prompt'.
	199	ACTION may be a skeleton to insert (see `skeleton-insert'), an absolute
	200	file-name or one relative to `auto-insert-directory' or a function to call.
	201	ACTION may also be a vector containing several successive single actions as
6c5b39e4 SE	202	described above, e.g. [\"header.insert\" date-and-author-update]."
	203	:type 'sexp
	204	:group 'auto-insert)
b1d6ae0b	205
c11af8a5 KH	206
c11af8a5 KH	207	;; Establish a default value for auto-insert-directory
6c5b39e4 SE	208	(defcustom auto-insert-directory "~/insert/"
	209	"*Directory from which auto-inserted files are taken."
	210	:type 'directory
	211	:group 'auto-insert)
b1d6ae0b	212
c11af8a5 KH	213
	214	;;;###autoload
	215	(defun auto-insert ()
	216	"Insert default contents into a new file if `auto-insert' is non-nil.
b1d6ae0b	217	Matches the visited file name against the elements of `auto-insert-alist'."
c11af8a5 KH	218	(interactive)
	219	(and (not buffer-read-only)
	220	(or (eq this-command 'auto-insert)
	221	(and auto-insert
	222	(bobp) (eobp)))
	223	(let ((alist auto-insert-alist)
	224	case-fold-search cond desc action)
	225	(goto-char 1)
	226	;; find first matching alist entry
	227	(while alist
	228	(if (atom (setq cond (car (car alist))))
	229	(setq desc cond)
	230	(setq desc (cdr cond)
	231	cond (car cond)))
	232	(if (if (symbolp cond)
	233	(eq cond major-mode)
	234	(string-match cond buffer-file-name))
	235	(setq action (cdr (car alist))
	236	alist nil)
	237	(setq alist (cdr alist))))
	238
	239	;; Now, if we found something, do it
	240	(and action
	241	(if (stringp action)
	242	(file-readable-p (concat auto-insert-directory action))
	243	t)
	244	(if auto-insert-query
	245	(or (if (eq auto-insert-query 'function)
	246	(eq this-command 'auto-insert))
	247	(y-or-n-p (format auto-insert-prompt desc)))
	248	t)
	249	(mapcar
	250	(lambda (action)
	251	(if (stringp action)
	252	(if (file-readable-p
	253	(setq action (concat auto-insert-directory action)))
	254	(insert-file-contents action))
	255	(save-window-excursion
	256	;; make buffer visible before skeleton or function
	257	;; which might ask the user for something
	258	(switch-to-buffer (current-buffer))
	259	(if (and (consp action)
	260	(not (eq (car action) 'lambda)))
	261	(skeleton-insert action)
	262	(funcall action)))))
	263	(if (vectorp action)
	264	action
	265	(vector action))))
	266	(and (buffer-modified-p)
	267	(not (eq this-command 'auto-insert))
	268	(set-buffer-modified-p (eq auto-insert t))))))
	269
	270
	271	;;;###autoload
4605a50d	272	(defun define-auto-insert (condition action &optional after)
c11af8a5 KH	273	"Associate CONDITION with (additional) ACTION in `auto-insert-alist'.
	274	Optional AFTER means to insert action after all existing actions for CONDITION,
	275	or if CONDITION had no actions, after all other CONDITIONs."
4605a50d	276	(let ((elt (assoc condition auto-insert-alist)))
c11af8a5 KH	277	(if elt
	278	(setcdr elt
	279	(if (vectorp (cdr elt))
	280	(vconcat (if after (cdr elt))
	281	(if (vectorp action) action (vector action))
	282	(if after () (cdr elt)))
	283	(if after
	284	(vector (cdr elt) action)
	285	(vector action (cdr elt)))))
	286	(if after
4605a50d DL	287	(nconc auto-insert-alist (list (cons condition action)))
4605a50d DL	288	(setq auto-insert-alist (cons (cons condition action)
c11af8a5	289	auto-insert-alist))))))
c0274f38	290
6c5b39e4 SE	291	;;;###autoload
	292	(defun auto-insert-mode (&optional arg)
	293	"Toggle auto-insert mode.
	294	With prefix ARG, turn auto-insert mode on if and only if ARG is positive.
	295	Returns the new status of auto-insert mode (non-nil means on).
	296
	297	When auto-insert mode is enabled, when new files are created you can
	298	insert a template for the file depending on the mode of the buffer."
	299	(interactive "P")
	300	(let ((on-p (if arg
	301	(> (prefix-numeric-value arg) 0)
	302	(not auto-insert-mode))))
	303	(if on-p
	304	(add-hook 'find-file-hooks 'auto-insert)
	305	(remove-hook 'find-file-hooks 'auto-insert))
	306	(if (interactive-p)
	307	(message "Auto-insert now %s." (if on-p "on" "off")))
	308	(setq auto-insert-mode on-p)
	309	))
	310
	311	(if auto-insert-mode
	312	(auto-insert-mode 1))
	313
896546cd RS	314	(provide 'autoinsert)
896546cd RS	315
c0274f38	316	;;; autoinsert.el ends here