Patrick,
I tried you config and got the following error:
** the function hilit-set-mode-patterns is not known to be defined.
Am I missing something?
Cheers,
Carey
On Wed, 1 Dec 1999, Patrick Calahan wrote:
> I do JSP development using emacs and have the same needs. I using multi-mode a
>while ago but found this to be a heavyweight solution. Worse, it tended to not do
>what I want in terms of hiliting and indentation. (I also write a lot of JSP custom
>tag code-generation templates, which hopelessly confuse matters).
>
> Anyway, I realized all I really needed was some good syntax coloring so that I could
>easily tell what is Java, what is a JSP tag, and what is HTML. In case anyone is in
>the same boat, I've appended the chunk of my .emacs that does the hiliting I like.
>Works for me but I'm no emacs/lisp expert; caveat emptor.
>
> Would love to hear about any better solutions anyone has.
>
> -p
>
>
>
> (defvar jsp-mode-hook nil
> "List of functions to call when entering jsp mode")
>
> (autoload 'jsp-mode "cc-mode" "JSP Editing Mode" t)
> (setq auto-mode-alist
> (append '(("\\.jsp$" . jsp-mode)
> ) auto-mode-alist
> )
> )
>
> (defun jsp-mode ()
> "Mode which provides syntax highlighting for JSPs."
> (interactive)
> (kill-all-local-variables)
> (setq major-mode 'jsp-mode)
> (setq mode-name "jsp")
> (run-hooks 'jsp-mode-hook)
> (setq indent-tabs-mode nil)
> (setq tab-width 2)
> (hilit-set-mode-patterns
> 'jsp-mode
> '(
> ("<%@.*" "%>" orange2-bold) ; JSP directives
> ("<%=.*" "%>" MediumBlue) ; JSP expression
> (hilit-string-find ?' grey40-italic) ; double-quoted string
> (hilit-string-find-singlequote ?' grey40-italic) ; single-quoted string
> ("<jsp:.*" "/>" orange2-bold) ; JSP tags
> ("<%--.*" "--%>" firebrick-italic) ; JSP comment
> ("<!--.*" "-->" firebrick-italic) ; HTML comment
> ("</\\*\\*" "\\*/" darkmagenta-italic) ; Java comments
> ("/\\*\\*" "\\*/" darkmagenta-italic)
> ("/\\*" "\\*/" firebrick-italic)
> ("//.*$" nil firebrick-italic)
> ("<[/]?[a-zA-Z]*:[a-zA-Z]" "[^%]>" orange2-bold) ; JSP custom tag
>
>("[^_]\\<\\(request\\|response\\|pageContext\\|session\\|application\\|out\\|config\\|page\\|exception\\)\\>[^_]"
> nil violetred-bold) ; JSP keywords
> ("<%!.*" "%>" MidnightBlue) ; JSP declaration
>
> ("<%[^!=-@].*" "%>" MediumBlue) ; JSP scriptlet
> ("<.*script>" "</.*script>" ForestGreen-bold) ; Javascript
> ("<[^%][^:]*" "[^%]>" black-bold) ; HTML tag
> )
> )
> )
>
> (defun hilit-string-find-singlequote (qchar)
> "Bastardization of hilit-string-find from hilit19 to work for single quotes as
>well."
> (let (st en)
> (while (and (search-forward "'" nil t)
> (eq qchar (char-after (1- (setq st (match-beginning 0)))))))
> (while (and (search-forward "'" nil t)
> (save-excursion
> (setq en (point))
> (forward-char -1)
> (skip-chars-backward "\\\\")
> (forward-char 1)
> (not (zerop (% (- en (point)) 2))))))
> (and en (cons st en)))
> )
>
> ---
> Patrick Calahan mailto:[EMAIL PROTECTED]
> BEA WebLogic http://www.weblogic.com
>
