Re: [PATCH] visual-basic-mode.el

The following message is a courtesy copy of an article that has been posted to comp.emacs.xemacs as well. lemburg> Since I had to wrestle with Visual Basic yesterday, I had lemburg> to correct some minor problems with visual-basic-mode.el lemburg> to make it working with my WinNT Xemacs ("XEmacs 21.4 lemburg> (patch 3) \"Academic Rigor\" [Lucid] (i586-pc-win32) of lemburg> Thu May 17 2001 on SHALOM"). lemburg> Disclaimer: I am not entirely sure if this is the right lemburg> group to post to, but since I could not find out with lemburg> certainty where to post a patch regarding lemburg> visual-basic-mode.el under xemacs, I resolved to post it lemburg> here. Hi lemburg, where did you get visual-basic-mode.el? Which version are you using? You should feed back to the maintainer of that made. xemacs-beta (which I have copied) is also a good place to ask questions about XEmacs package integration/ownership. Hope this helps, Adrian lemburg> Cheers, lemburg> Christian Lemburg lemburg> --- d:\tools\emacs\visual-basic\visual-basic-mode.el Thu Nov 29 09:54:46 2001 lemburg> +++ D:\home\emacs\visual-basic\visual-basic-mode.el Thu Nov 29 12:41:03 2001 lemburg> ＠＠ -358,14 +358,14 ＠＠ lemburg> ;; Any keywords you like. lemburg> (list (concat "\\<" (regexp-opt lemburg> - '("Dim" "If" "Then" "Else" "ElseIf" "End If") t) lemburg> + '("Dim" "If" "Then" "Else" "ElseIf" "End If") t t) lemburg> "\\>") lemburg> 1 'font-lock-keyword-face)))) lemburg> (defvar visual-basic-font-lock-keywords-2 lemburg> (append visual-basic-font-lock-keywords-1 lemburg> (eval-when-compile lemburg> - `((,(concat "\\<" (regexp-opt visual-basic-all-keywords t) "\\>") lemburg> + `((,(concat "\\<" (regexp-opt visual-basic-all-keywords t t) "\\>") lemburg> 1 font-lock-keyword-face))))) lemburg> (defvar visual-basic-font-lock-keywords visual-basic-font-lock-keywords-1) lemburg> ＠＠ -413,7 +413,7 ＠＠ lemburg> (make-local-variable 'imenu-generic-expression) lemburg> (setq imenu-generic-expression visual-basic-imenu-generic-expression) lemburg> - (set (make-local-variable 'imenu-syntax-alist) '(("_" . "w"))) lemburg> + (set (make-local-variable 'imenu-syntax-alist) `((,(string-to-char "_") . "w"))) lemburg> (set (make-local-variable 'imenu-case-fold-search) t) lemburg> ;(make-local-variable 'visual-basic-associated-files) ; doing this here means we need not check to see if it is bound later. lemburg> ＠＠ -435,10 +435,10 ＠＠ lemburg> (cond ((boundp 'font-lock-defaults) lemburg> (make-local-variable 'font-lock-defaults) lemburg> (setq font-lock-defaults lemburg> - '((visual-basic-font-lock-keywords lemburg> + `((visual-basic-font-lock-keywords lemburg> visual-basic-font-lock-keywords-1 lemburg> visual-basic-font-lock-keywords-2) lemburg> - nil t (("_" . "w"))))) lemburg> + nil t ((,(string-to-char "_") . "w"))))) lemburg> (t lemburg> (make-local-variable 'font-lock-keywords) lemburg> (setq font-lock-keywords visual-basic-font-lock-keywords))) -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/