Function: define-auto-insert

define-auto-insert is an autoloaded and byte-compiled function defined in autoinsert.el.gz.

Signature

(define-auto-insert CONDITION ACTION &optional AFTER)

Documentation

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.

Source Code

;; Defined in /usr/src/emacs/lisp/autoinsert.el.gz
;;;###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."
  (declare (indent defun))
  (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)))
        (push (cons condition action) auto-insert-alist)))))