(get-charset-property): If CHARSET is

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

diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el
index be98545..8a72275 100644 (file)
--- a/lisp/autoinsert.el
+++ b/lisp/autoinsert.el
@@ -1,9 +1,10 @@
 ;;; autoinsert.el --- automatic mode-dependent insertion of text into new files
 
-;; Copyright (C) 1985, 1986, 1987, 1994, 1995 Free Software Foundation, Inc.
+;; 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.
@@ -52,7 +53,8 @@
 (defgroup auto-insert nil
   "Automatic mode-dependent insertion of text into new files."
   :prefix "auto-insert-"
-  :group 'files)
+  :group 'files
+  :group 'convenience)
 
 
 (defcustom auto-insert-mode nil
@@ -76,13 +78,18 @@ 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 t) (const nil) (const not-modified))
+  :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 t) (const nil) (const function))
+  :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? "
@@ -262,11 +269,11 @@ Matches the visited file name against the elements of `auto-insert-alist'."
 
 
 ;;;###autoload
-(defun define-auto-insert (key action &optional after)
+(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 key auto-insert-alist)))
+  (let ((elt (assoc condition auto-insert-alist)))
     (if elt
        (setcdr elt
                (if (vectorp (cdr elt))
@@ -277,8 +284,8 @@ or if CONDITION had no actions, after all other CONDITIONs."
                      (vector (cdr elt) action)
                    (vector action (cdr elt)))))
       (if after
-         (nconc auto-insert-alist (list (cons key action)))
-       (setq auto-insert-alist (cons (cons key action)
+         (nconc auto-insert-alist (list (cons condition action)))
+       (setq auto-insert-alist (cons (cons condition action)
                                      auto-insert-alist))))))
 
 ;;;###autoload