Directory:~$ /usr/share/emacs/site-lisp/

Upload File

[Home] [System Details] [Kill Me]

;ELC
;;; Compiled by mockbuild@worker1.bsys.centos.org on Tue Jun 10 05:41:24
2014
;;; from file
/builddir/build/BUILD/autoconf-2.69/lib/emacs/elc.5195/autotest-mode.el
;;; in Emacs version 24.3.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.

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


(defvar autotest-font-lock-keywords '(("\\bdnl\\b\\(.*\\)" 1
font-lock-comment-face t) ("\\$[0-9*#@]" .
font-lock-variable-name-face)
("^\\(m4_define\\|m4_defun\\)(\\[*\\([A-Za-z0-9_]+\\)" 2
font-lock-function-name-face) ("^AT_SETUP(\\[+\\([^]]+\\)" 1
font-lock-function-name-face) ("^AT_DATA(\\[+\\([^]]+\\)" 1
font-lock-variable-name-face)
("\\b\\(_?m4_[_a-z0-9]*\\|_?A[ST]_[_A-Z0-9]+\\)\\b" .
font-lock-keyword-face) "default font-lock-keywords"))
#@36 syntax table used in autotest mode
(defvar autotest-mode-syntax-table nil (#$ . 1012))
(byte-code "\301
\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\207"
[autotest-mode-syntax-table make-syntax-table modify-syntax-entry 34
"\"" 35 "<\n" 10 ">#" 40
"()" 41 ")(" 91 "(]" 93 ")[" 42
"." 95 "_"] 4)
(defvar autotest-mode-map (byte-code "\301
\302\303\304#\210)\207" [map make-sparse-keymap define-key
[(control c) (\;)] comment-region] 4))
#@118 Autotest value for `add-log-current-defun-function'.
This tells add-log.el how to find the current test group/macro.
(defalias 'autotest-current-defun #[nil
"\212\300\301\302\303#\205\304\224\304\225{)\207"
[re-search-backward
"^\\(m4_define\\|m4_defun\\|AT_SETUP\\)(\\[+\\([^]]+\\)" nil t 2]
4 (#$ . 1573)])
#@78 A major-mode to edit Autotest files like testsuite.at.
\{autotest-mode-map}

(defalias 'autotest-mode #[nil "\306
\210\307!\210\310\301!\210\311\310\302!\210\312\310\303!\210\313\310\314!\210\315\316\317\f\320!\210\321\322!\207"
[autotest-mode-map add-log-current-defun-function comment-start
parse-sexp-ignore-comments major-mode mode-name kill-all-local-variables
use-local-map make-local-variable autotest-current-defun "# " t
font-lock-defaults autotest-mode "Autotest"
(autotest-font-lock-keywords nil) set-syntax-table run-hooks
autotest-mode-hook autotest-mode-syntax-table] 2 (#$ . 1890) nil])
(provide 'autotest-mode)