From 6be61200c529f7f61a89aac6158eb63026d7a44b Mon Sep 17 00:00:00 2001 From: Ralph Amissah Date: Fri, 15 Jun 2007 12:05:07 +0100 Subject: cgi search script fix, related to highlighting matches, changelog update, rest removal of hanging whitespace --- data/sisu/conf/syntax/sisu-mode.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'data/sisu/conf/syntax/sisu-mode.el') diff --git a/data/sisu/conf/syntax/sisu-mode.el b/data/sisu/conf/syntax/sisu-mode.el index 3f56de1c..c12c1a72 100644 --- a/data/sisu/conf/syntax/sisu-mode.el +++ b/data/sisu/conf/syntax/sisu-mode.el @@ -61,13 +61,13 @@ ;; ;; default variables ;; (defvar sisu-mode.el-hook nil) -;; +;; ;; (defvar sisu-mode-map ;; (let ((sisu-mode-map (make-keymap))) ;; (define-key wpdl-mode-map "\C-j" 'newline-and-indent) ;; sisu-mode-map) ;; "Keymap for SiSU major mode") -;; +;; ;; (add-to-list 'auto-mode-alist '("\\.ss[tmi]\\'" . sisu-mode)) (defvar sisu-mode-hook nil) @@ -123,7 +123,7 @@ ; select more appropriate matches )) "Additional Keywords to highlight in SiSU mode") - + (defconst sisu-font-lock-keywords-3 (append sisu-font-lock-keywords-2 (list @@ -133,7 +133,7 @@ (defvar sisu-font-lock-keywords sisu-font-lock-keywords-3 "Default highlighting expressions for SiSU mode") - + (defvar sisu-mode-syntax-table (let ((sisu-mode-syntax-table (make-syntax-table))) (modify-syntax-entry ?_ "w" sisu-mode-syntax-table) @@ -162,7 +162,7 @@ ;; (let ((map (make-sparse-keymap))) ;; ;; insert (define-key map ...) stuff here ;; (setq sisu-mode.el-map map))) -;; +;; ;; syntax highlighting: standard keywords ;; (defconst sisu-font-lock-keywords-1 ;; '( @@ -171,7 +171,7 @@ ;; ;; ("^[ \t]+\\(.*\\)$" 1 font-lock-type-face) ;; ) ;; "Minimal highlighting expressions for SiSU mode.") -;; +;; ;; ;; syntax highlighting: additional keywords ;; (defconst sisu-font-lock-keywords-2 ;; (append sisu-font-lock-keywords-1 @@ -179,7 +179,7 @@ ;; ("%+ \\(.*\\)" 2 font-lock-comment-face) ;; )) ;; "Additional Keywords to highlight in SiSU mode.") -;; +;; ;; ;; syntax highlighting: even more keywords ;; (defconst sisu-font-lock-keywords-3 ;; (append sisu-font-lock-keywords-2 @@ -193,21 +193,21 @@ ;; ("\"\\([^\"]+\\)\"" 0 font-lock-string-face) ;; )) ;; "Balls-out highlighting in SiSU mode.") -;; +;; ;; ;; default level of highlight to maximum ;; (defvar sisu-font-lock-keywords sisu-font-lock-keywords-3 ;; "Default highlighting expressions for SiSU mode") -;; +;; ;; ;; no special indenting, just pure text mode ;; (defun sisu-indent-line () ;; "Indent current line as SiSU code. Does nothing yet." ;; (interactive) ;; ) -;; +;; ;; ;; no special syntax table ;; (defvar sisu-mode.el-syntax-table nil ;; "Syntax table for sisu-mode.el.") -;; +;; ;; ;; create and activate syntax table ;; (defun sisu-create-syntax-table () ;; (if sisu-mode.el-syntax-table -- cgit v1.2.3