diff options
-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 @@ st) "Syntax table in use in VCL Mode buffers.") (defvar vcl-mode-abbrev-table nil "Abbreviation table used in vcl-mode buffers.") (c-define-abbrev-table 'vcl-mode-abbrev-table - '(("else" "else" c-electric-continued-statement 0) - ("while" "while" c-electric-continued-statement 0))) + '(("else" "else" c-electric-continued-statement 0))) ;; Font locking (defconst vcl-font-lock-keywords-1 (eval-when-compile (list ;; Version declaration @@ -305,13 +304,13 @@ '("^[ \t]*\\(sub\\)\\>[ \t]*\\(\\sw+\\)?" (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))))) "Gaudy level highlighting for VCL buffers.") (defvar vcl-font-lock-keywords vcl-font-lock-keywords-3) -(put 'vcl-mode 'c-mode-prefix "vcl-") +(put 'vcl-mode 'c-mode-prefix "vcl-") (defun vcl-sharp-comment-syntax () (save-excursion (goto-char (match-beginning 0)) (let ((syntax (save-match-data (syntax-ppss)))) (cond @@ -357,15 +356,16 @@ Key bindings: \\{vcl-mode-map}" (set (make-local-variable 'syntax-propertize-function) vcl-syntax-propertize-function) (set (make-local-variable 'parse-sexp-lookup-properties) t) - (set (make-local-variable 'comment-start) "# ") (c-initialize-cc-mode t) + (c-lang-setvar comment-start "# ") + (setq c-opt-cpp-prefix nil) (set-syntax-table vcl-mode-syntax-table) (setq local-abbrev-table vcl-mode-abbrev-table abbrev-mode t) (use-local-map vcl-mode-map) (c-init-language-vars vcl-mode) (c-common-init 'vcl-mode) |