diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2015-10-23 14:46:03 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2015-10-23 14:46:03 +0300 |
commit | 2f0582451af081f8181b796132950431baf061d6 (patch) | |
tree | 54bc0dbeece0fd1d31d45c96bb7e1da0058237ea | |
parent | e217607915ae4d3a486a4b4e0fafeb34b8247d0f (diff) | |
download | vcl-mode-2f0582451af081f8181b796132950431baf061d6.tar.gz vcl-mode-2f0582451af081f8181b796132950431baf061d6.tar.bz2 |
Set comment-prefix, clear c-opt-cpp-prefix
-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 | |||
@@ -66,8 +66,7 @@ | |||
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 |
@@ -308,7 +307,7 @@ | |||
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 |
@@ -360,9 +359,10 @@ Key bindings: | |||
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) |