aboutsummaryrefslogtreecommitdiff
path: root/vcl-mode.el
diff options
context:
space:
mode:
Diffstat (limited to 'vcl-mode.el')
-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 @@
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 @@
357Key bindings: 356Key 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)

Return to:

Send suggestions and report system problems to the System administrator.