(defun java-mode-untabify ()
(save-excursion
(goto-char (point-min))
(if (search-forward "\t" nil t)
(untabify (1- (point)) (point-max))))
nil)
(setq auto-mode-alist (cons '("\\.as$" . java-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.lzs$" . java-mode) auto-mode-alist))
(add-hook 'java-mode-hook
'(lambda ()
(make-local-variable 'write-contents-hooks)
(add-hook 'write-contents-hooks 'java-mode-untabify)))
--
Henry Minsky
Software Architect
[EMAIL PROTECTED]
_______________________________________________ Laszlo-dev mailing list [email protected] http://www.openlaszlo.org/mailman/listinfo/laszlo-dev
