HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/autoinsert.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301\302\303\304\305\306\307\306\310\311\312&\210\313\301\314\315\316\317\306\301&\210\313\320\321\322\316\323\306\301&\210\313\324\325\326\316\327\306\301&\210\313\330\331\332\316\333\334\335\306\301&	\210\313\336\337\340\316\341\306\301&\207" [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 'not-modified "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 'function "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 "Perform %s auto-insertion? " "Prompt to use when querying whether to auto-insert.\nIf this contains a %s, that will be replaced by the matching rule." string auto-insert-alist '((("\\.\\([Hh]\\|hh\\|hpp\\|hxx\\|h\\+\\+\\)\\'" . "C / C++ header") (replace-regexp-in-string "[^A-Z0-9]" "_" (replace-regexp-in-string "\\+" "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) " " (file-name-extension (buffer-file-name)) " " (format-time-string "%Y-%m-%d ") "\n.SH NAME\n" (file-name-base) " \\- " str "\n.SH SYNOPSIS\n.B " (file-name-base) "\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") (("\\.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) ")\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) ".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{http://www.texinfo.org/, 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\n@c " (file-name-nondirectory (buffer-file-name)) " ends here\n")) "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"))) :version "25.1" auto-insert-directory "~/insert/" "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 #[nil "\204\307	\302=\204\n\203\307o\203\307m\203\307\306\211\211\211\307b\210\203u@@\211:\204<\202EA@9\203R\310!\202]\203l\311\"\203l@A\306\211\202(A\211\204+\f\203\265\f;\203\210\312\313\f\"!\203\265\203\244\314=\203\232	\302=\204\244\315\316
\"!\203\265\317\320\321\f!\203\260\f\202\263\322\f!\"\210\323 \203\306	\302=\204\306\324\n\325=!\210-\306\207" [buffer-read-only this-command auto-insert auto-insert-alist action desc nil 1 derived-mode-p string-match file-readable-p expand-file-name function y-or-n-p format mapc #[(action) ";\203\303\304	\"\211!\2052\305!\207\306 \307\216\310p!\210:\203/@\311=\204/\312!\2021 *\207" [action auto-insert-directory #1=#:wconfig file-readable-p expand-file-name insert-file-contents current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] switch-to-buffer lambda skeleton-insert] 4] vectorp vector buffer-modified-p set-buffer-modified-p t cond case-fold-search alist buffer-file-name auto-insert-directory auto-insert-query auto-insert-prompt] 6 (#$ . 8748) nil])
#@210 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.
(defalias 'define-auto-insert #[(condition action &optional after) "\305	\"\211\203E\n\306\nA!\2030\307\205\nA\306\f!\203\"\f\202%\310\f!?\205,\nA#\202A\203<\310\nA\f\"\202A\310\f\nA\"\241\202Y\203R	\fBC\244\202Y\fB	B\211)\207" [condition auto-insert-alist elt after action assoc vectorp vconcat vector] 6 (#$ . 10060)])
#@269 Non-nil if Auto-Insert mode is enabled.
See the `auto-insert-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `auto-insert-mode'.
(custom-declare-variable 'auto-insert-mode nil '(#$ . 10619) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'auto-insert :type 'boolean)
#@347 Toggle Auto-insert mode, a global minor mode.
With a prefix argument ARG, enable Auto-insert mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil.

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.
(defalias 'auto-insert-mode #[(&optional arg) "\304 \305\302	\306=\203\307\302!?\202\310	!\311V\"\210\n\203%\312\313\314\"\210\202*\315\313\314\"\210\316\317\307\302!\2036\320\2027\321\"\210\322\323!\203b\324\302!\210\304 \203O\304 \232\203b\325\326\327\307\302!\203]\330\202^\331#\210))\332 \210\307\302!\207" [#1=#:last-message arg auto-insert-mode local current-message set-default toggle default-value prefix-numeric-value 0 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] 4 (#$ . 11058) (list (or current-prefix-arg 'toggle))])
(defvar auto-insert-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\210\311\312!\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.)" add-minor-mode auto-insert-mode nil boundp provide autoinsert] 6)