lib/emacs/autotest-mode.el

1 ;;; autotest-mode.el --- autotest code editing commands for Emacs
27 ;; A major mode for editing autotest input (like testsuite.at).
28 ;; Derived from autoconf-mode.el, by Martin Buchholz (martin@xemacs.org).
32 ;;   (autoload 'autotest-mode "autotest-mode"
33 ;;             "Major mode for editing autotest files." t)
34 ;;   (setq auto-mode-alist
35 ;;         (cons '("\\.at\\'" . autotest-mode) auto-mode-alist))
49 (defvar autotest-mode-syntax-table nil
50   "syntax table used in autotest mode")
51 (setq autotest-mode-syntax-table (make-syntax-table))
52 (modify-syntax-entry ?\" "\""  autotest-mode-syntax-table)
53 ;;(modify-syntax-entry ?\' "\""  autotest-mode-syntax-table)
54 (modify-syntax-entry ?#  "<\n" autotest-mode-syntax-table)
55 (modify-syntax-entry ?\n ">#"  autotest-mode-syntax-table)
56 (modify-syntax-entry ?\( "()"   autotest-mode-syntax-table)
57 (modify-syntax-entry ?\) ")("   autotest-mode-syntax-table)
58 (modify-syntax-entry ?\[ "(]"  autotest-mode-syntax-table)
59 (modify-syntax-entry ?\] ")["  autotest-mode-syntax-table)
60 (modify-syntax-entry ?*  "."   autotest-mode-syntax-table)
61 (modify-syntax-entry ?_  "_"   autotest-mode-syntax-table)
63 (defvar autotest-mode-map
78 (defun autotest-mode ()
79   "A major-mode to edit Autotest files like testsuite.at.
80 \\{autotest-mode-map}
84   (use-local-map autotest-mode-map)
95   (setq major-mode 'autotest-mode)
96   (setq mode-name "Autotest")
98   (set-syntax-table autotest-mode-syntax-table)
99   (run-hooks 'autotest-mode-hook))
101 (provide 'autotest-mode)
103 ;;; autotest-mode.el ends here