;ELC   
;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:31 2008
;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/tla-bconfig.el
;;; in Emacs version 23.0.50.2
;;; 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 "`tla-bconfig.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\300\301!\210\300\302!\207" [require tla easymenu] 2)
#@31 Keywords in tla-bconfig mode.
(defvar tla-bconfig-font-lock-keywords '(("#.*$" quote dvc-comment) ("\\(\\./[^ \n	]*\\)[ 	]+\\(.*\\)" (1 'dvc-local-directory) (2 'tla-archive-name))) (#$ . 666))
#@36 Keymap used in `tla-bconfig-mode'.
(defvar tla-bconfig-mode-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\311#\210\302\312\311#\210\302\313\314#\210\302\315\314#\210\302\316\317#\210\302\320\321#\210)\207" [map make-sparse-keymap define-key "	" tla-bconfig-insert-contents " " "." tla-bconfig-insert-contents-dot "	" tla-insert-location " " "/" tla-bconfig-insert-directory "." "" tla-build-config "" tla-cat-config] 4) (#$ . 866))
#@25 `tla-bconfig-mode' menu
(defvar tla-bconfig-mode-menu nil (#$ . 1358))
(easy-menu-do-define 'tla-bconfig-mode-menu tla-bconfig-mode-map "`tla-bconfig-mode' menu" '("Build-Config" ["Insert Directory" tla-bconfig-insert-directory t] ["Insert Name" tla-insert-location t] "--" ["Run cat-config" tla-cat-config t] ["Run build-config" tla-build-config t]))
#@64 Read a directory relative from tla's tree root, and insert it.
(defalias 'tla-bconfig-insert-directory #[nil "\302 \303\304\"\211\205 \305\306\307	!\307!G\310O!\261*\207" [base-dir dir tla-tree-root dvc-read-directory-name "Directory: " "./" directory-file-name expand-file-name nil] 6 (#$ . 1716) nil])
#@65 Insert a directory or tla name depending on the point position.
(defalias 'tla-bconfig-insert-contents #[(n) "\301\302`e\"8\203 \303!\207n\203 \304 \207\212\305 \210\306\307\310 \311#\205# \312\224)\2037 \312\224b\210\313\312!G\314=\205W \315 \207\212\305 \210\306\316\310 \311#\205F \317\225)\203T \317\225b\210\320c\210\315 \207\303!\207" [n 4 parse-partial-sexp self-insert-command tla-bconfig-insert-directory beginning-of-line re-search-forward "\\(\\./[^ 	\n]*\\)[ 	]+\\(.*\\)" line-end-position t 2 match-string 0 tla-insert-location "\\(\\./[^ 	\n]*\\)" 1 "	"] 4 (#$ . 2032) "p"])
#@2 
(defalias 'tla-bconfig-insert-contents-dot #[(n) "n\203 \301!\207\302!\207" [n tla-bconfig-insert-contents self-insert-command] 2 (#$ . 2630) "p"])
#@40 Syntax table used in tla-bconfig mode.
(defvar tla-bconfig-mode-syntax-table (byte-code "\301 \302\303\304#\210\302\305\306#\210)\207" [st make-syntax-table modify-syntax-entry 35 "<" 10 ">"] 4) (#$ . 2788))
#@51 Major mode to edit GNU arch's build config files.
(defalias 'tla-bconfig-mode #[nil "\306 \210\307!\210\310	!\210\311\302!\210\312\311\303!\210\313\314\315\316\317!\207" [tla-bconfig-mode-syntax-table tla-bconfig-mode-map font-lock-defaults comment-start major-mode mode-name kill-all-local-variables set-syntax-table use-local-map make-local-variable (tla-bconfig-font-lock-keywords t) "#" tla-bconfig-mode "tla-bconfig" run-hooks tla-bconfig-mode-hook] 2 (#$ . 3006) nil])
(byte-code "\300\301\302\"\210\303\304!\207" [add-to-list auto-mode-alist ("\\.arch$" . tla-bconfig-mode) provide tla-bconfig] 3)