;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306\307\310\311\310\312\313\314&\210\315\303\316\317\320DD\321\322\323%\210\315\324\316\317\325DD\326\322\327%\210\315\330\316\317\331DD\332\322\333\334\335&\210\315\336\316\317\337DD\340\322\341\334\342&\210\315\343\316\317\344DD\345\322\346%\207" [require seq custom-declare-group auto-insert nil "Automatic mode-dependent insertion of text into new files." :prefix "auto-insert-" :group files convenience :link (custom-manual "(autotype) Autoinserting") custom-declare-variable funcall function #[0 "\300\207" [not-modified] 1 #1=""] "Controls automatic insertion into newly found empty files.\nPossible values:\n	nil	do nothing\n	t	insert if possible\n	other	insert if possible, but mark as unmodified.\nInsertion is possible when something appropriate is found in\n`auto-insert-alist'.  When the insertion is marked as unmodified, you can\nsave it with  \\[write-file] RET.\nThis variable is used when the function `auto-insert' is called, e.g.\nwhen you do (add-hook \\='find-file-hook \\='auto-insert).\nWith \\[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)) auto-insert-query #[0 "\300\207" [function] 1 #1#] "Non-nil means ask user before auto-inserting.\nWhen this is `function', only ask when called non-interactively." (choice (const :tag "Don't ask" nil) (const :tag "Ask if called non-interactively" function) (other :tag "Ask" t)) auto-insert-prompt #[0 "\300\207" ["Perform %s auto-insertion?"] 1 #1#] "Prompt to use when querying whether to `auto-insert'.\nIf this contains a %s, that will be replaced by the matching rule." string :version "28.1" auto-insert-alist #[0 "\300\207" [((("\\.\\([Hh]\\|hh\\|hpp\\|hxx\\|h\\+\\+\\)\\'" . "C / C++ header") (replace-regexp-in-string "[^A-Z0-9]" "_" (string-replace "+" "P" (upcase (file-name-nondirectory buffer-file-name)))) "#ifndef " str n "#define " str "\n\n" _ "\n\n#endif") (("\\.\\([Cc]\\|cc\\|cpp\\|cxx\\|c\\+\\+\\)\\'" . "C / C++ program") nil "#include \"" (let ((stem (file-name-sans-extension buffer-file-name)) ret) (dolist (ext '("H" "h" "hh" "hpp" "hxx" "h++") ret) (when (file-exists-p (concat stem "." ext)) (setq ret (file-name-nondirectory (concat stem "." ext)))))) & 34 | -10) (("[Mm]akefile\\'" . "Makefile") . "makefile.inc") (html-mode lambda nil (sgml-tag "html")) (plain-tex-mode . "tex-insert.tex") (bibtex-mode . "tex-insert.tex") (latex-mode "options, RET: " "\\documentclass[" str & 93 | -1 123 (read-string "class: ") "}\n" ("package, %s: " "\\usepackage[" (read-string "options, RET: ") & 93 | -1 123 str "}\n") _ "\n\\begin{document}\n" _ "\n\\end{document}") (("/bin/.*[^/]\\'" . "Shell-Script mode magic number") lambda nil (if (eq major-mode (default-value 'major-mode)) (sh-mode))) (ada-mode . ada-header) (("\\.[1-9]\\'" . "Man page skeleton") "Short description: " ".\\\" Copyright (C), " (format-time-string "%Y") "  " (getenv "ORGANIZATION") | (progn user-full-name) "\n.\\\" You may distribute this file under the terms of the GNU Free\n.\\\" Documentation License.\n.TH " (file-name-base (buffer-file-name)) " " (file-name-extension (buffer-file-name)) " " (format-time-string "%Y-%m-%d ") "\n.SH NAME\n" (file-name-base (buffer-file-name)) " \\- " str "\n.SH SYNOPSIS\n.B " (file-name-base (buffer-file-name)) "\n" _ "\n.SH DESCRIPTION\n.SH OPTIONS\n.SH FILES\n.SH \"SEE ALSO\"\n.SH BUGS\n.SH AUTHOR\n" (user-full-name) '(if (search-backward "&" (line-beginning-position) t) (replace-match (capitalize (user-login-name)) t t)) '(end-of-line 1) " <" (progn user-mail-address) ">\n") (".dir-locals.el" nil ";;; Directory Local Variables\n" ";;; For more information see (info \"(emacs) Directory Variables\")\n\n" "((" '(setq v1 (let (modes) (mapatoms (lambda (mode) (let ((name (symbol-name mode))) (when (string-match "-mode$" name) (push name modes))))) (sort modes 'string<))) (completing-read "Local variables for mode: " v1 nil t) " . ((" (let ((all-variables (apropos-internal ".*" (lambda (symbol) (and (boundp symbol) (get symbol 'variable-documentation)))))) (completing-read "Variable to set: " all-variables)) " . " (completing-read "Value to set it to: " nil) "))))\n") (("\\.el\\'" . "Emacs Lisp header") "Short description: " ";;; " (file-name-nondirectory (buffer-file-name)) " --- " str (make-string (max 2 (- 80 (current-column) 27)) 32) "-*- lexical-binding: t; -*-" '(setq lexical-binding t) "\n\n;; Copyright (C) " (format-time-string "%Y") "  " (getenv "ORGANIZATION") | (progn user-full-name) "\n\n;; Author: " (user-full-name) '(if (search-backward "&" (line-beginning-position) t) (replace-match (capitalize (user-login-name)) t t)) '(end-of-line 1) " <" (progn user-mail-address) ">\n;; Keywords: " '(require 'finder) '(setq v1 (mapcar (lambda (x) (list (symbol-name (car x)))) finder-known-keywords) v2 (mapconcat (lambda (x) (format "%12s:  %s" (car x) (cdr x))) finder-known-keywords "\n")) ((let ((minibuffer-help-form v2)) (completing-read "Keyword, C-h: " v1 nil t)) str ", ") & -2 "\n\n;; This program is free software; you can redistribute it and/or modify\n;; it under the terms of the GNU General Public License as published by\n;; the Free Software Foundation, either version 3 of the License, or\n;; (at your option) any later version.\n\n;; This program is distributed in the hope that it will be useful,\n;; but WITHOUT ANY WARRANTY; without even the implied warranty of\n;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n;; GNU General Public License for more details.\n\n;; You should have received a copy of the GNU General Public License\n;; along with this program.  If not, see <https://www.gnu.org/licenses/>.\n\n;;; Commentary:\n\n;; " _ "\n\n;;; Code:\n\n\n\n(provide '" (file-name-base (buffer-file-name)) ")\n;;; " (file-name-nondirectory (buffer-file-name)) " ends here\n") (("\\.texi\\(nfo\\)?\\'" . "Texinfo file skeleton") "Title: " "\\input texinfo   @c -*-texinfo-*-\n@c %**start of header\n@setfilename " (file-name-base (buffer-file-name)) ".info\n" "@settitle " str "\n@c %**end of header\n@copying\n" (setq short-description (read-string "Short description: ")) ".\n\n" "Copyright @copyright{} " (format-time-string "%Y") "  " (getenv "ORGANIZATION") | (progn user-full-name) "\n\n@quotation\nPermission is granted to copy, distribute and/or modify this document\nunder the terms of the GNU Free Documentation License, Version 1.3\nor any later version published by the Free Software Foundation;\nwith no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts.\nA copy of the license is included in the section entitled ``GNU\nFree Documentation License''.\n\nA copy of the license is also available from the Free Software\nFoundation Web site at @url{https://www.gnu.org/licenses/fdl.html}.\n\n@end quotation\n\nThe document was typeset with\n@uref{https://www.gnu.org/software/texinfo/, GNU Texinfo}.\n\n@end copying\n\n@titlepage\n@title " str "\n@subtitle " short-description "\n@author " (getenv "ORGANIZATION") | (progn user-full-name) " <" (progn user-mail-address) ">\n@page\n@vskip 0pt plus 1filll\n@insertcopying\n@end titlepage\n\n@c Output the table of the contents at the beginning.\n@contents\n\n@ifnottex\n@node Top\n@top " str "\n\n@insertcopying\n@end ifnottex\n\n@c Generate the nodes for this menu with `C-c C-u C-m'.\n@menu\n@end menu\n\n@c Update all node entries with `C-c C-u C-n'.\n@c Insert new nodes with `C-c C-c n'.\n@node Chapter One\n@chapter Chapter One\n\n" _ "\n\n@node Copying This Manual\n@appendix Copying This Manual\n\n@menu\n* GNU Free Documentation License::  License for copying this manual.\n@end menu\n\n@c Get fdl.texi from https://www.gnu.org/licenses/fdl.html\n@include fdl.texi\n\n@node Index\n@unnumbered Index\n\n@printindex cp\n\n@bye\n"))] 1 #1#] "A list specifying text to insert by default into a new file.\nElements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION).\nCONDITION may be a regexp that must match the new file's name, or it may be\na symbol that must match the major mode for this element to apply.\nOnly the first matching element is effective.\nOptional DESCRIPTION is a string for filling `auto-insert-prompt'.\nACTION may be a skeleton to insert (see `skeleton-insert'), an absolute\nfile-name or one relative to `auto-insert-directory' or a function to call.\nACTION may also be a vector containing several successive single actions as\ndescribed above, e.g. [\"header.insert\" date-and-author-update]." (alist :key-type (choice (regexp :tag "Regexp matching file name") (symbol :tag "Major mode") (cons :tag "Condition and description" (choice :tag "Condition" (regexp :tag "Regexp matching file name") (symbol :tag "Major mode")) (string :tag "Description"))) :value-type (choice file function (sexp :tag "Skeleton or vector"))) "27.1" auto-insert-directory #[0 "\300\207" ["~/insert/"] 1 #1#] "Directory from which auto-inserted files are taken.\nThe value must be an absolute directory name;\nthus, on a GNU or Unix system, it must end in a slash." directory] 12)
#@153 Insert default contents into new files if variable `auto-insert' is non-nil.
Matches the visited file name against the elements of `auto-insert-alist'.
(defalias 'auto-insert #[0 "\204x	\302=\204\n\203xo\203xm\203x\306\211C\307\310\311\"\f\"\312b\210\211\203d\211;\2036\313\314
\"!\203d\203S\315=\203H	\302=\204S\316\317\242\"!\203d\320\321\322!\203_\202b\323!\"\210\324 \203u	\302=\204u\325\n\326=!\210)\266\306\207" [buffer-read-only this-command auto-insert case-fold-search auto-insert-alist auto-insert-directory nil seq-some make-closure #[257 "\211\242
\243
\211:\204\300\240\210\202\300A\240\210@\262
\2119\203%\302
!\202-	\2051\303
	\"\2051
\207" [V0 buffer-file-name derived-mode-p string-match] 7 "\n\n(fn ARG0)"] 1 file-readable-p expand-file-name function y-or-n-p format mapc #[257 "\211;\203\301\302\"\211\262!\2056\303
!\207\304 \305\306\"\216\307p!\210
:\2031\310!\2041\311!\2023
 )\262
\207" [auto-insert-directory file-readable-p expand-file-name insert-file-contents current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] switch-to-buffer functionp skeleton-insert] 5 "\n\n(fn ACTION)"] vectorp vector buffer-modified-p set-buffer-modified-p t auto-insert-query auto-insert-prompt] 7 (#$ . 9240) nil])
#@249 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.

(fn CONDITION ACTION &optional AFTER)
(defalias 'define-auto-insert #[770 "\301\"\211\203D\211\302A!\2031\303\205A\302!\203\"\202&\304!?\205-A#\202B\203=\304A\"\202B\304A\"\241\207
\203OBC\244\207BB\211\207" [auto-insert-alist assoc vectorp vconcat vector] 9 (#$ . 10564)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable auto-insert-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Auto-Insert mode is enabled.\nSee the `auto-insert-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `auto-insert-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group auto-insert] 12)
#@761 Toggle Auto-insert mode, a global minor mode.

This is a minor mode.  If called interactively, toggle the
`Auto-Insert mode' mode.  If the prefix argument is positive, enable
the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='auto-insert-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

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.

(fn &optional ARG)
(defalias 'auto-insert-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B	\203D\313\314\315\"\210\202I\316\314\315\"\210\317\320\305\301!\203U\321\202V\322\"\210\323\324!\203~\325\301!\210\302 \203n\211\302 \232\203~\326\327\305\301!\203z\330\202{\331\332#\210\210\333 \210\305\301!\207" [global-minor-modes auto-insert-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook find-file-hook auto-insert remove-hook run-hooks auto-insert-mode-hook auto-insert-mode-on-hook auto-insert-mode-off-hook called-interactively-p any customize-mark-as-set message "Auto-Insert mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 11632) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar auto-insert-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315!\207" [auto-insert-mode-map auto-insert-mode-hook variable-documentation put "Hook run after entering or leaving `auto-insert-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode auto-insert-mode boundp provide autoinsert] 6)