;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:48:25 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/autoinsert.el ;;; in Emacs version 23.4.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'auto-insert nil "Automatic mode-dependent insertion of text into new files." :prefix "auto-insert-" :group 'files :group 'convenience :link '(custom-manual "(autotype) Autoinserting")) #@518 Controls automatic insertion into newly found empty files. Possible values: 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 the function `auto-insert' is called, e.g. when you do (add-hook 'find-file-hook 'auto-insert). With \[auto-insert], this is always treated as if it were t. (custom-declare-variable 'auto-insert ''not-modified '(#$ . 749) :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) #@112 Non-nil means ask user before auto-inserting. When this is `function', only ask when called non-interactively. (custom-declare-variable 'auto-insert-query ''function '(#$ . 1509) :type '(choice (const :tag "Don't ask" nil) (const :tag "Ask if called non-interactively" function) (other :tag "Ask" t)) :group 'auto-insert) #@120 Prompt to use when querying whether to auto-insert. If this contains a %s, that will be replaced by the matching rule. (custom-declare-variable 'auto-insert-prompt '"Perform %s auto-insertion? " '(#$ . 1838) :type 'string :group 'auto-insert) #@687 A list specifying text to insert by default into a new file. Elements look like (CONDITION . ACTION) or ((CONDITION . DESCRIPTION) . ACTION). CONDITION may be 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]. (custom-declare-variable 'auto-insert-alist ''((("\\.\\([Hh]\\|hh\\|hpp\\)\\'" . "C / C++ header") (upcase (concat (file-name-nondirectory (file-name-sans-extension buffer-file-name)) "_" (file-name-extension buffer-file-name))) "#ifndef " str n "#define " str "\n\n" _ "\n\n#endif") (("\\.\\([Cc]\\|cc\\|cpp\\)\\'" . "C / C++ program") nil "#include \"" (let ((stem (file-name-sans-extension buffer-file-name))) (cond ((file-exists-p (concat stem ".h")) (file-name-nondirectory (concat stem ".h"))) ((file-exists-p (concat stem ".hh")) (file-name-nondirectory (concat stem ".hh"))))) & 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), " (substring (current-time-string) -4) " " (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-sans-extension (file-name-nondirectory (buffer-file-name))) " " (file-name-extension (buffer-file-name)) " " (format-time-string "%Y-%m-%d ") "\n.SH NAME\n" (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) " \\- " str "\n.SH SYNOPSIS\n.B " (file-name-sans-extension (file-name-nondirectory (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") (("\\.el\\'" . "Emacs Lisp header") "Short description: " ";;; " (file-name-nondirectory (buffer-file-name)) " --- " str "\n\n;; Copyright (C) " (substring (current-time-string) -4) " " (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 .\n\n;;; Commentary:\n\n;; " _ "\n\n;;; Code:\n\n\n\n(provide '" (file-name-sans-extension (file-name-nondirectory (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-sans-extension (file-name-nondirectory (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{} " (substring (current-time-string) -4) " " (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{http://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 http://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")) '(#$ . 2088) :type 'sexp :group 'auto-insert) #@154 Directory from which auto-inserted files are taken. The value must be an absolute directory name; thus, on a GNU or Unix system, it must end in a slash. (custom-declare-variable 'auto-insert-directory '"~/insert/" '(#$ . 8494) :type 'directory :group 'auto-insert) #@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\310 \302=\204\n\203\310o\203\310m\203\310 \306\211\211\211\307b\210\203v@@\211:\204<\202EA@9\203S=\202^\203m\310\"\203m@A\306\211\202(A\211\204+\f\203\266\f;\203\211\311\312\f\"!\203\266\203\245\313=\203\233 \302=\204\245\314\315 \"!\203\266\316\317\320\f!\203\261\f\202\264\321\f!\"\210\322 \203\307 \302=\204\307\323\n\324=!\210-\306\207" [buffer-read-only this-command auto-insert auto-insert-alist action desc nil 1 string-match file-readable-p expand-file-name function y-or-n-p format mapc #[(action) ";\203\302\303 \"\211!\205\304!\207\305\213\207" [action auto-insert-directory file-readable-p expand-file-name insert-file-contents ((byte-code "\301p!\210:\203@\302=\204\303!\207 \207" [action switch-to-buffer lambda skeleton-insert] 2))] 4] vectorp vector buffer-modified-p set-buffer-modified-p t cond case-fold-search alist major-mode buffer-file-name auto-insert-directory auto-insert-query auto-insert-prompt] 6 (#$ . 8766) 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 (#$ . 10000)]) #@269 Non-nil if Auto-Insert mode is enabled. See the command `auto-insert-mode' 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 '(#$ . 10559) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'auto-insert :type 'boolean) #@301 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. (defalias 'auto-insert-mode #[(&optional arg) "\303  \304=\203\n?\202( \203\305 !\306V\202(\n\204\"\307\202(\310\311\302\"\210\312\211\2035\313\314\315\"\210\202:\316\314\315\"\210\317\320\n\203D\321\202E\322\"\210\323\324!\203j\325\302!\210\303 \203]\303 \232\203j\310\326\n\203g\327\202h\330\"\210)\331 \210\n\207" [#1=#:last-message arg auto-insert-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil 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 "Auto-Insert mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 10999) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n#\210\305\306!\207" [auto-insert-mode-map add-minor-mode auto-insert-mode nil boundp provide autoinsert] 5)