1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
Index: ats2-lang-0.4.2/utils/emacs/ats2-mode.el
===================================================================
--- ats2-lang-0.4.2.orig/utils/emacs/ats2-mode.el
+++ ats2-lang-0.4.2/utils/emacs/ats2-mode.el
@@ -37,7 +37,7 @@
(when (not (boundp 'xemacsp))
(setq xemacsp (boundp 'xemacs-logo)))
-(defvar ats-mode-syntax-table
+(defvar ats2-mode-syntax-table
(let ((st (make-syntax-table)))
;; (*..*) for nested comments.
(modify-syntax-entry ?\( "() 1n" st)
@@ -103,8 +103,8 @@
(modify-syntax-entry ?\; "." st)
st))
-(defvar ats-mode-font-lock-syntax-table
- (let ((st (copy-syntax-table ats-mode-syntax-table)))
+(defvar ats2-mode-font-lock-syntax-table
+ (let ((st (copy-syntax-table ats2-mode-syntax-table)))
(modify-syntax-entry ?_ "w" st)
st))
@@ -370,16 +370,16 @@
(1 "\"'") (2 "\"'"))
))
-(define-derived-mode c/ats-mode c-mode "C/ATS"
+(define-derived-mode c/ats2-mode c-mode "C/ATS"
"Major mode to edit C code embedded in ATS code."
(unless (local-variable-p 'compile-command)
(set (make-local-variable 'compile-command)
(let ((file buffer-file-name))
(format "patscc -tcats %s" file)))
(put 'compile-command 'permanent-local t))
- (setq indent-line-function 'c/ats-mode-indent-line))
+ (setq indent-line-function 'c/ats2-mode-indent-line))
-(defun c/ats-mode-indent-line (&optional arg)
+(defun c/ats2-mode-indent-line (&optional arg)
(let (c-start c-end)
(save-excursion
(if (re-search-backward "%{[^$]?" 0 t)
@@ -396,7 +396,7 @@
(c-indent-line arg))))
;;;###autoload
-(define-derived-mode ats-mode fundamental-mode "ATS2"
+(define-derived-mode ats2-mode fundamental-mode "ATS2"
"Major mode to edit ATS2 source code."
(set (make-local-variable 'font-lock-defaults)
'(ats-font-lock-keywords nil nil ((?_ . "w") (?= . "_")) nil
@@ -446,8 +446,8 @@
(current-column))))
;;;autoload
-(add-to-list 'auto-mode-alist '("\\.\\(s\\|d\\|h\\)ats\\'" . ats-mode))
+(add-to-list 'auto-mode-alist '("\\.\\(s\\|d\\|h\\)ats\\'" . ats2-mode))
-(provide 'ats-mode)
+(provide 'ats2-mode)
;;; end of [ats2-mode.el]
;;; ats2-mode.el ends here
|
