diff options
Diffstat (limited to 'vcl-mode.el')
-rw-r--r-- | vcl-mode.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/vcl-mode.el b/vcl-mode.el index c6ea5e1..97f66b1 100644 --- a/vcl-mode.el +++ b/vcl-mode.el | |||
@@ -63,14 +63,13 @@ | |||
63 | st) | 63 | st) |
64 | "Syntax table in use in VCL Mode buffers.") | 64 | "Syntax table in use in VCL Mode buffers.") |
65 | 65 | ||
66 | (defvar vcl-mode-abbrev-table nil | 66 | (defvar vcl-mode-abbrev-table nil |
67 | "Abbreviation table used in vcl-mode buffers.") | 67 | "Abbreviation table used in vcl-mode buffers.") |
68 | (c-define-abbrev-table 'vcl-mode-abbrev-table | 68 | (c-define-abbrev-table 'vcl-mode-abbrev-table |
69 | '(("else" "else" c-electric-continued-statement 0) | 69 | '(("else" "else" c-electric-continued-statement 0))) |
70 | ("while" "while" c-electric-continued-statement 0))) | ||
71 | 70 | ||
72 | ;; Font locking | 71 | ;; Font locking |
73 | (defconst vcl-font-lock-keywords-1 | 72 | (defconst vcl-font-lock-keywords-1 |
74 | (eval-when-compile | 73 | (eval-when-compile |
75 | (list | 74 | (list |
76 | ;; Version declaration | 75 | ;; Version declaration |
@@ -305,13 +304,13 @@ | |||
305 | '("^[ \t]*\\(sub\\)\\>[ \t]*\\(\\sw+\\)?" | 304 | '("^[ \t]*\\(sub\\)\\>[ \t]*\\(\\sw+\\)?" |
306 | (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))))) | 305 | (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))))) |
307 | "Gaudy level highlighting for VCL buffers.") | 306 | "Gaudy level highlighting for VCL buffers.") |
308 | 307 | ||
309 | (defvar vcl-font-lock-keywords vcl-font-lock-keywords-3) | 308 | (defvar vcl-font-lock-keywords vcl-font-lock-keywords-3) |
310 | 309 | ||
311 | (put 'vcl-mode 'c-mode-prefix "vcl-") | 310 | (put 'vcl-mode 'c-mode-prefix "vcl-") |
312 | 311 | ||
313 | (defun vcl-sharp-comment-syntax () | 312 | (defun vcl-sharp-comment-syntax () |
314 | (save-excursion | 313 | (save-excursion |
315 | (goto-char (match-beginning 0)) | 314 | (goto-char (match-beginning 0)) |
316 | (let ((syntax (save-match-data (syntax-ppss)))) | 315 | (let ((syntax (save-match-data (syntax-ppss)))) |
317 | (cond | 316 | (cond |
@@ -357,15 +356,16 @@ | |||
357 | Key bindings: | 356 | Key bindings: |
358 | \\{vcl-mode-map}" | 357 | \\{vcl-mode-map}" |
359 | 358 | ||
360 | (set (make-local-variable 'syntax-propertize-function) | 359 | (set (make-local-variable 'syntax-propertize-function) |
361 | vcl-syntax-propertize-function) | 360 | vcl-syntax-propertize-function) |
362 | (set (make-local-variable 'parse-sexp-lookup-properties) t) | 361 | (set (make-local-variable 'parse-sexp-lookup-properties) t) |
363 | (set (make-local-variable 'comment-start) "# ") | ||
364 | 362 | ||
365 | (c-initialize-cc-mode t) | 363 | (c-initialize-cc-mode t) |
364 | (c-lang-setvar comment-start "# ") | ||
365 | (setq c-opt-cpp-prefix nil) | ||
366 | (set-syntax-table vcl-mode-syntax-table) | 366 | (set-syntax-table vcl-mode-syntax-table) |
367 | (setq local-abbrev-table vcl-mode-abbrev-table | 367 | (setq local-abbrev-table vcl-mode-abbrev-table |
368 | abbrev-mode t) | 368 | abbrev-mode t) |
369 | (use-local-map vcl-mode-map) | 369 | (use-local-map vcl-mode-map) |
370 | (c-init-language-vars vcl-mode) | 370 | (c-init-language-vars vcl-mode) |
371 | (c-common-init 'vcl-mode) | 371 | (c-common-init 'vcl-mode) |