;ELC ;;; Compiled by proclus@darwintel on Sun Jan 13 21:47:01 2008 ;;; from file /mnt/gmirror/ports/textproc/latte/work/latte-2.1/elc.12018/latte.el ;;; in Emacs version 21.2.1 ;;; with bytecomp version 1.1.1.4 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`latte.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'derived) #@25 *Keymap for Latte mode. (defvar latte-mode-map nil (#$ . -651)) (byte-code "\204\302 !\303\304\305#\210\303\306\305#\210\307\310\311#\210\302\207" [latte-mode-map text-mode-map copy-keymap substitute-key-definition backward-delete-char backward-delete-char-untabify delete-backward-char define-key " " indent-for-tab-command] 4) #@31 *Syntax table for Latte mode. (defvar latte-mode-syntax-table nil (#$ . -993)) (byte-code "\204\302 !\303\304\305#\210\302\207" [latte-mode-syntax-table text-mode-syntax-table copy-syntax-table modify-syntax-entry 92 "\\"] 4) #@46 *Value of font-lock-keywords for Latte mode. (defvar latte-font-lock-keywords '(("\\\\;.*" . font-lock-comment-face) ("\\\\\\\\" . font-lock-keyword-face) ("\\\\/" . font-lock-keyword-face) ("\\\\['`]" . font-lock-keyword-face) ("\\\\,@?" . font-lock-keyword-face) ("\\\\\"\\([^\\\\]\\|\\\\[^\"]\\)*\\\\\"" 0 font-lock-string-face t) ("{\\(\\\\\\(def\\|if\\|lambda\\)\\)\\>" 1 font-lock-keyword-face) ("{\\(\\\\[A-Za-z_][A-Za-z_0-9?!+-]*\\)" 1 font-lock-function-name-face) ("\\\\[&=]?[A-Za-z_][A-Za-z_0-9?!+-]*" . font-lock-variable-name-face)) (#$ . -1230)) (byte-code "\301B\303\301!\204 \304 \302B\303\302!\204\305\306\307\"\310B\311\310\307\"\210\312\313\314\315#\207" [current-load-list latte-mode-map latte-mode-syntax-table boundp make-sparse-keymap make-char-table syntax-table nil latte-mode-abbrev-table define-abbrev-table put latte-mode derived-mode-parent text-mode] 4) #@211 Major mode for editing Latte source. In addition to any hooks its parent mode `text-mode' might have run, this mode runs the hook `latte-mode-hook', as the final step during initialization. \{latte-mode-map} (defalias 'latte-mode #[nil "\306 \210\306\307N\203\310\311\307\312#\210\311\313\314\n!\204\315\n\316 \"\210\317 !\211\203.\f\320 =\2034\321 \322 \"\210) \203>\323\324 \"\210\325\n!\210\326 !\210(\327\330!\210\327\331!\210\327\332!\210\327\333!\210\327\334!\210\327\335!\210\327\336!\210\337\340\341\342\343\344\345\346\347!\207" [major-mode mode-name latte-mode-map latte-mode-syntax-table parent local-abbrev-table text-mode special put latte-mode t "Latte" keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table mapatoms #[(symbol) "\302\303! \"\206\304 \303!JK$\207" [symbol latte-mode-abbrev-table intern-soft symbol-name define-abbrev] 5] use-local-map set-syntax-table make-local-variable comment-column comment-start-skip comment-start comment-end font-lock-defaults indent-line-function imenu-generic-expression 40 "\\\\;\\s-*" "\\; " "" (latte-font-lock-keywords t) latte-indent-line ((nil "^{\\\\def\\s-*\\\\\\([A-Za-z_][A-Za-z_0-9?!+-]*\\)" 1)) run-hooks latte-mode-hook latte-mode-abbrev-table] 5 (#$ . 2132) nil]) (byte-code "\301B\302\303\304\305\306#\307Q\301\207" [current-load-list latte-keyword-regex "\\\\\\(" mapconcat symbol-name (def if let while) "\\|" "\\)\\>"] 5) (defalias 'latte-indent-line #[nil "\306 \307\216`\310 \210`\311\312\313\217\211\205i \205'\314u\210\315 !\205'\316\314!\nb\210\317y\320U\205E\311\210\321\311x\210h\322>?\205E\310 \210`\211\205M\323 \205X\311\324\325\217\203e\f\326\\\202\212\203v \232\203v\202\212 \203\fT\202\212\203\211\202\212\320\nb\210 \nU\203\242\323 Y\203\242\327 \202\246\330!. \207" [save-match-data-internal start bol open open-column latte-keyword-regex match-data ((set-match-data save-match-data-internal)) back-to-indentation nil (byte-code "\301\302\303!\210g\304U?\211\204`)\207" [looping t backward-up-list 1 123] 3) ((error)) 1 looking-at match-string -1 0 " \n \f" (0 32 9 10 13 12) current-indentation (byte-code "\301\302\303!\210g\304U?\211\204`)\207" [looping t backward-up-list 1 123] 3) ((error)) 2 indent-relative indent-line-to keyword prev-bol prev-indent prev-open column] 4])