(provide (quote tplvars)) (defvar tpl-ask-expansion-depth 1 "\ *Depth of recursive placeholder expansions at which to start asking whether to expand. Possible values are: -1 delete all placeholders 0 don't expand or delete placeholders---leave them alone 1 ask about expansion at level 1 n ask about expansion at level n of expanding Defaults to 1, which means always ask.") (defvar tpl-auto-load-new-templates nil "\ *If non-nil load new templates after creating them with 'replace-wtih-placeholder. Otherwise, loading must be done by invoking 'load-tpl-file. Defaults to nil.") (defvar tpl-auto-save-new-templates nil "\ *If non-nil save new templates after creating them with 'replace-wtih-placeholder. Otherwise, saving must be done by invoking 'save-buffer. Defaults to nil.") (defvar tpl-auto-template-alist nil "\ *Global Alist of major modes and their associated template files. Initialized by 'tpl-initialize-modes'.") (defvar tpl-begin-placeholder "<" "\ *Regular expression for beginning of placeholder.") (defvar tpl-begin-template-body "^:begin" "\ *Regular expression for beginning of template body.") (make-variable-buffer-local (quote tpl-begin-template-body)) (setq-default tpl-begin-template-body "^:begin") (defvar tpl-begin-template-definition "^Template" "\ *Regular expression for beginning of template definition.") (make-variable-buffer-local (quote tpl-begin-template-definition)) (setq-default tpl-begin-template-definition "^Template") (defvar tpl-destination-symbol "POINT" "\ *Special symbol used as placeholder as location for point after expanding a template.") (defvar tpl-display-begin ">>" "\ *Delimiter marking beginning of a selected placeholder.") (defvar tpl-display-end "<<" "\ *Delimiter marking end of a selected placeholder.") (defvar tpl-end-placeholder ">" "\ *Regular expression for end of placeholder.") (defvar tpl-end-template-body "^:end" "\ *Regular expression for end of template body.") (make-variable-buffer-local (quote tpl-end-template-body)) (setq-default tpl-end-template-body "^:end") (defvar tpl-fill-while-unscanning nil "\ *If non-nil, use whatever fill mode is in effect while unscanning (inserting) templates. Defaults to nil, which ensures that template formats are not disturbed by context.") (defvar tpl-form-placeholder-name-from-context nil "\ *Option to generate placeholder names by looking for the first symbol after point. Defaults to nil, which means use temporary names instead.") (defvar tpl-function-type "Function" "\ *Name of function-type template type.") (defvar tpl-get-placeholder-name-in-context t "\ *If non-nil allow the user to type in the placeholder name within the context of the template definition. Otherwise, use temporary names. Defaults to t.") (defvar tpl-include-prefix-in-groups t "\ *Option to include the prefix string (used to find the beginning of a group) in the group.") (defvar tpl-indentation-size 2 "\ *Size of indentation units in columns.") (make-variable-buffer-local (quote tpl-indentation-size)) (setq-default tpl-indentation-size 2) (defvar tpl-keep-optional-placeholders "ask" "\ *Option to determine processing of optional placeholders in template-mode. If t, then always keep them. If nil, then always delete them. If neither t nor nil, then always ask.") (defvar tpl-lexical-type "Lexical" "\ *Name of lexical-type template type.") (defvar tpl-literal-whitespace nil "\ *If non-nil leave leading whitespace in templates as-is. Otherwise, calculate relative indentation units (see 'tpl-indentation-size' variable). Defaults to nil.") (defvar tpl-load-path (list nil "/usr/sipb/lib/elisp/templates") "\ *List of directories to search for template files to load. Each element is a string (directory name) or nil (try default directory). Use 'template-mode-load-hook to change this value.") (defvar tpl-new-template-buffer "new.tpl" "\ *Buffer containing new templates.") (defvar tpl-next-placeholder-number 1 "\ *Counter used to generate unique temporary placeholder names.") (defvar tpl-pattern-optional "#" "\ *Regular expression for all optional placeholders.") (defvar tpl-pattern-other "." "\ *Regular expression for all other tokens.") (defvar tpl-pattern-placeholder nil "\ *Regular expression for placeholder.") (defvar tpl-pattern-punctuation "\\s.+" "\ *Regular expression for at least one punctuation character.") (defvar tpl-pattern-string ".*" "\ *Regular expression for any string.") (defvar tpl-pattern-symbol "\\(\\sw\\|\\s_\\)+" "\ *Regular expression for at least one symbol character.") (defvar tpl-pattern-whitespace "[ ]+" "\ *Regular expression for at least one whitespace character.") (defvar tpl-pattern-word "\\sw+" "\ *Regular expression for at least one word character.") (defvar tpl-rebuild-all-templates-template nil "\ *If non-nil rebuild the list of all templates after invoking template-mode and after loading new templates. Otherwise, do not (improves performance of starting up). Defaults to nil.") (defvar tpl-repetition-type "Repetition" "\ *Name of repetition-type template type.") (defvar tpl-save-identifier-file nil "\ *Option to save identifier table in a separate file. Defaults to nil, which means save only in a buffer.") (defvar tpl-selection-type "Selection" "\ *Name of selection-type template type.") (defvar tpl-sep-placeholder ":" "\ *Regular expression for placeholder body separator.") (defvar tpl-sequence-type "Sequence" "\ *Name of sequence-type template type.") (defvar tpl-string-type "String" "\ *Name of string-type template type.") (defvar tpl-temporary-placeholder-name "TEMP" "\ *Root of temporary placeholder names.") (defvar tpl-verify-end-of-group nil "\ *Option to verify (by positioning point) the end of each group of lines in 'query-replace-groups.") (defvar lex-patterns nil "\ A list of regular expressions to be used in recognizing tokens.") (defvar string-patterns nil "\ A list of string patterns to be used in recognizing tokens.") (defvar template-mode nil "\ Minor mode symbol.") (make-variable-buffer-local (quote template-mode)) (defvar template-mode-map nil "\ Keymap for template-mode.") (defvar tpl-all-templates-file "ALLTEMPLATES" "\ Name of dummy template file for all-templates-template.") (defvar tpl-all-templates-name "ALLTEMPLATES" "\ Name of special template that is a selection of all other templates.") (defvar tpl-all-templates-template-invalid t "\ Flag to indicate validity of all-templates-template.") (defvar tpl-begin-optional nil "\ Regular expression for beginning of optional placeholder.") (defvar tpl-buffer "Current template buffer.") (defvar tpl-comment-level 100 "\ Special value indicating alignment on comment column.") (defvar tpl-destination-marker (make-marker) "\ Location (a marker) to leave point after expanding placeholder.") (make-variable-buffer-local (quote tpl-destination-marker)) (setq-default tpl-destination-marker (make-marker)) (defvar tpl-destination-needed nil "\ Boolean flag used to signal whether a destination for point (after expanding a placeholder) has been found yet.") (defvar tpl-destination-placeholder nil "\ Special placeholder used to place point after expanding a template.") (defvar tpl-end-group nil "\ Global variable to hold pattern for end of group.") (defvar tpl-expansion-depth 1 "\ Current depth of recursive calls to expand placeholders. Compared to tpl-ask-expansion-depth.") (make-variable-buffer-local (quote tpl-expansion-depth)) (setq-default tpl-expansion-depth 1) (defvar tpl-formed-placeholder-name nil "\ Value formed by searching for next symbol after point.") (defvar tpl-global-template-list nil "\ Global Alist of major modes and their associated templates.") (defvar tpl-indentation-type (quote indentation) "\ Type of indentation terminals.") (defvar tpl-local-template-list nil "\ List of all templates and their tree values.") (make-variable-buffer-local (quote tpl-local-template-list)) (defvar tpl-menu-buffer "Menu" "\ Buffer used for making selections of templates.") (defvar tpl-newline-token nil "\ Token indicating presence of a newline.") (defvar tpl-newline-type (quote newline) "\ Type of newline terminals.") (defvar tpl-next-placeholder-name (concat tpl-temporary-placeholder-name tpl-next-placeholder-number) "\ Next unique name for temporary placeholder.") (defvar tpl-optional-type (quote optional) "\ Type of optional placeholders.") (defvar tpl-other-type (quote other) "\ Type of other terminals.") (defvar tpl-placeholder-type (quote placeholder) "\ Type of all placeholders.") (defvar tpl-punctuation-type (quote punctuation) "\ Type of punctuation terminals.") (defvar tpl-query-flag t "\ If non-nil query about placeholder names.") (defvar tpl-saved-map nil "\ Local keymap to restore when turning off template-mode.") (make-variable-buffer-local (quote tpl-saved-map)) (defvar tpl-terminal-type (quote terminal) "\ Type of all literal strings.") (defvar tpl-textlong-buffer "Textlong" "\ Buffer used for creating textlong values.") (defvar tpl-whitespace-type (quote whitespace) "\ Type of whitespace terminals.") (defvar tpl-word-type (quote word) "\ Type of word terminals.") (defvar tpl-work-buffer "Work" "\ Buffer used for constructing temporary objects.")