annotate lisp/progmodes/awk-mode.el @ 21636:10d8ced94467

(read1): Compute NaN and infinities using 0.0 in a variable, to cope with compilers that think they are smarter than us.
author Richard M. Stallman <rms@gnu.org>
date Fri, 17 Apr 1998 23:36:34 +0000
parents f3f9df46d008
children 0e0b0df72444
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 257
diff changeset
1 ;;; awk-mode.el --- AWK code editing commands for Emacs
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 257
diff changeset
2
16451
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
3 ;; Copyright (C) 1988, 1994, 1996 Free Software Foundation, Inc.
845
213978acbc1e entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 811
diff changeset
4
811
e694e0879463 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
5 ;; Maintainer: FSF
2247
2c7997f249eb Add or correct keywords
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 845
diff changeset
6 ;; Keywords: unix, languages
811
e694e0879463 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
7
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
811
e694e0879463 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 ;; any later version.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 ;; GNU General Public License for more details.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13471
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13471
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13471
diff changeset
23 ;; Boston, MA 02111-1307, USA.
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24
2307
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2247
diff changeset
25 ;;; Commentary:
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2247
diff changeset
26
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2247
diff changeset
27 ;; Sets up C-mode with support for awk-style #-comments and a lightly
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2247
diff changeset
28 ;; hacked syntax table.
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2247
diff changeset
29
811
e694e0879463 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
30 ;;; Code:
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32 (defvar awk-mode-syntax-table nil
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 "Syntax table in use in Awk-mode buffers.")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 (if awk-mode-syntax-table
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 ()
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 (setq awk-mode-syntax-table (make-syntax-table))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 (modify-syntax-entry ?\\ "\\" awk-mode-syntax-table)
5329
af96725f9e00 (awk-mode-syntax-table): Was mistakenly changing
Richard M. Stallman <rms@gnu.org>
parents: 5266
diff changeset
39 (modify-syntax-entry ?\n "> " awk-mode-syntax-table)
af96725f9e00 (awk-mode-syntax-table): Was mistakenly changing
Richard M. Stallman <rms@gnu.org>
parents: 5266
diff changeset
40 (modify-syntax-entry ?\f "> " awk-mode-syntax-table)
af96725f9e00 (awk-mode-syntax-table): Was mistakenly changing
Richard M. Stallman <rms@gnu.org>
parents: 5266
diff changeset
41 (modify-syntax-entry ?\# "< " awk-mode-syntax-table)
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42 (modify-syntax-entry ?/ "." awk-mode-syntax-table)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43 (modify-syntax-entry ?* "." awk-mode-syntax-table)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44 (modify-syntax-entry ?+ "." awk-mode-syntax-table)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45 (modify-syntax-entry ?- "." awk-mode-syntax-table)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 (modify-syntax-entry ?= "." awk-mode-syntax-table)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47 (modify-syntax-entry ?% "." awk-mode-syntax-table)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 (modify-syntax-entry ?< "." awk-mode-syntax-table)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49 (modify-syntax-entry ?> "." awk-mode-syntax-table)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50 (modify-syntax-entry ?& "." awk-mode-syntax-table)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 (modify-syntax-entry ?| "." awk-mode-syntax-table)
16451
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
52 (modify-syntax-entry ?_ "_" awk-mode-syntax-table)
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 (modify-syntax-entry ?\' "\"" awk-mode-syntax-table))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 (defvar awk-mode-abbrev-table nil
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56 "Abbrev table in use in Awk-mode buffers.")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57 (define-abbrev-table 'awk-mode-abbrev-table ())
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58
16451
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
59 ;; Regexps written with help from Peter Galbraith <galbraith@mixing.qc.dfo.ca>.
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
60 (defconst awk-font-lock-keywords
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
61 (eval-when-compile
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
62 (list
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
63 ;;
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
64 ;; Function names.
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
65 '("^[ \t]*\\(function\\)\\>[ \t]*\\(\\sw+\\)?"
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
66 (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
67 ;;
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
68 ;; Variable names.
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
69 (cons (concat "\\<\\("
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
70 ; ("ARGC" "ARGIND" "ARGV" "CONVFMT" "ENVIRON" "ERRNO"
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
71 ; "FIELDWIDTHS" "FILENAME" "FNR" "FS" "IGNORECASE" "NF" "NR"
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
72 ; "OFMT" "OFS" "ORS" "RLENGTH" "RS" "RSTART" "SUBSEP")
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
73 "ARG\\([CV]\\|IND\\)\\|CONVFMT\\|E\\(NVIRON\\|RRNO\\)\\|"
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
74 "F\\(I\\(ELDWIDTHS\\|LENAME\\)\\|NR\\|S\\)\\|IGNORECASE\\|"
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
75 "N[FR]\\|O\\(F\\(MT\\|S\\)\\|RS\\)\\|"
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
76 "R\\(LENGTH\\|S\\(\\|TART\\)\\)\\|SUBSEP"
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
77 "\\)\\>")
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
78 'font-lock-variable-name-face)
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
79 ;;
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
80 ;; Keywords.
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
81 (concat "\\<\\("
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
82 ; ("BEGIN" "END" "break" "continue" "delete" "exit" "for"
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
83 ; "getline" "if" "next" "print" "printf" "return" "while")
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
84 "BEGIN\\|END\\|break\\|continue\\|delete\\|exit\\|for\\|"
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
85 "getline\\|if\\|next\\|printf?\\|return\\|while"
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
86 "\\)\\>")
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
87 ;;
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
88 ;; Builtins.
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
89 (list (concat "\\<\\("
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
90 ; ("atan2" "close" "cos" "ctime" "exp" "gsub" "index" "int"
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
91 ; "length" "log" "match" "rand" "sin" "split" "sprintf"
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
92 ; "sqrt" "srand" "sub" "substr" "system" "time"
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
93 ; "tolower" "toupper")
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
94 "atan2\\|c\\(lose\\|os\\|time\\)\\|exp\\|gsub\\|"
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
95 "in\\(dex\\|t\\)\\|l\\(ength\\|og\\)\\|match\\|rand\\|"
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
96 "s\\(in\\|p\\(lit\\|rintf\\)\\|qrt\\|rand\\|"
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
97 "ub\\(\\|str\\)\\|ystem\\)\\|"
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
98 "t\\(ime\\|o\\(lower\\|upper\\)\\)"
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
99 "\\)(")
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
100 1 'font-lock-builtin-face)
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
101 ;;
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
102 ;; Operators. Is this too much?
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
103 (cons (mapconcat 'identity
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
104 '("&&" "||" "<=" "<" ">=" ">" "==" "!=" "!~" "~")
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
105 "\\|")
20953
f3f9df46d008 Changed font-lock-reference-face to font-lock-constant-face.
Simon Marshall <simon@gnu.org>
parents: 19322
diff changeset
106 'font-lock-constant-face)
16451
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
107 ))
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
108 "Default expressions to highlight in AWK mode.")
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
109
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
110 ;;;###autoload
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
111 (defun awk-mode ()
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
112 "Major mode for editing AWK code.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
113 This is much like C mode except for the syntax of comments. It uses
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
114 the same keymap as C mode and has the same variables for customizing
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
115 indentation. It has its own abbrev table and its own syntax table.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
116
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
117 Turning on AWK mode calls the value of the variable `awk-mode-hook'
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
118 with no args, if that value is non-nil."
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
119 (interactive)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
120 (kill-all-local-variables)
19322
cc9e75f82cdb (awk-mode): Require cc-mode, not cc-langs.
Richard M. Stallman <rms@gnu.org>
parents: 18988
diff changeset
121 (require 'cc-mode)
18988
35c373c1f925 (awk-mode): Call c-initialize-cc-mode.
Richard M. Stallman <rms@gnu.org>
parents: 18773
diff changeset
122 (c-initialize-cc-mode)
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
123 (use-local-map c-mode-map)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
124 (setq major-mode 'awk-mode)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
125 (setq mode-name "AWK")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
126 (setq local-abbrev-table awk-mode-abbrev-table)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127 (set-syntax-table awk-mode-syntax-table)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
128 (make-local-variable 'paragraph-start)
10868
276209d90df9 (awk-mode): Remove ^ from paragraph-start & paragraph-separate.
Boris Goldowsky <boris@gnu.org>
parents: 7300
diff changeset
129 (setq paragraph-start (concat "$\\|" page-delimiter))
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
130 (make-local-variable 'paragraph-separate)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
131 (setq paragraph-separate paragraph-start)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
132 (make-local-variable 'paragraph-ignore-fill-prefix)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
133 (setq paragraph-ignore-fill-prefix t)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
134 (make-local-variable 'indent-line-function)
5266
0581b0d428e9 (awk-mode): Use c-indent-line.
Richard M. Stallman <rms@gnu.org>
parents: 2307
diff changeset
135 (setq indent-line-function 'c-indent-line)
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
136 (make-local-variable 'require-final-newline)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137 (setq require-final-newline t)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138 (make-local-variable 'comment-start)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139 (setq comment-start "# ")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140 (make-local-variable 'comment-end)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141 (setq comment-end "")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142 (make-local-variable 'comment-column)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143 (setq comment-column 32)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
144 (make-local-variable 'comment-start-skip)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
145 (setq comment-start-skip "#+ *")
2307
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2247
diff changeset
146 (make-local-variable 'comment-indent-function)
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2247
diff changeset
147 (setq comment-indent-function 'c-comment-indent)
17913
c0e681b163ce (awk-mode): Set parse-sexp-ignore-comments.
Richard M. Stallman <rms@gnu.org>
parents: 16451
diff changeset
148 (make-local-variable 'parse-sexp-ignore-comments)
c0e681b163ce (awk-mode): Set parse-sexp-ignore-comments.
Richard M. Stallman <rms@gnu.org>
parents: 16451
diff changeset
149 (setq parse-sexp-ignore-comments t)
16451
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
150 (make-local-variable 'font-lock-defaults)
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
151 (setq font-lock-defaults '(awk-font-lock-keywords nil nil ((?_ . "w"))))
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
152 (run-hooks 'awk-mode-hook))
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 257
diff changeset
153
16451
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
154 (provide 'awk-mode)
0e181c85b17e Add Font Lock support. Provide when loaded.
Simon Marshall <simon@gnu.org>
parents: 14169
diff changeset
155
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 257
diff changeset
156 ;;; awk-mode.el ends here