aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--vcl-mode.el8
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)

Return to:

Send suggestions and report system problems to the System administrator.