(autoload 'css-mode "css-mode") (setq auto-mode-alist (cons '("\\.css$" . css-mode) auto-mode-alist))
(autoload 'visual-basic-mode "visual-basic-mode" "Visual Basic mode." t) (setq auto-mode-alist (append '(("\\.\\(frm\\|bas\\|cls\\)$" . visual-basic-mode)) auto-mode-alist))
(setq auto-mode-alist (append '(("\\.js$" . java-mode)) auto-mode-alist))
(defun jsp-mode () (multi-mode 1 'html-mode '("<%" java-mode) '("%>" html-mode))) (setq auto-mode-alist (append '(("\\.jsp$" . jsp-mode)) auto-mode-alist))
(defun mhtml-mode () (multi-mode 1 'html-mode '("<SCRIPT" java-mode) '("/SCRIPT>" html-mode))) (setq auto-mode-alist (append '(("\\.\\(htm\\|html\\|shtm\\|shtml\\)$" . mhtml-mode)) auto-mode-alist))