1 (add-to-list 'load-path (concat (file-name-directory
5 (when (boundp 'bytecomp-filename) bytecomp-filename)
9 (require 'textile-mode)
11 (add-to-list 'auto-mode-alist '("/itsalltext/tpm.traveltainment.int" . textile-mode))
12 (add-to-list 'edit-server-url-major-mode-alist '("tpm.traveltainment.int" . textile-mode))
14 (setq textile-font-lock-keywords
15 (delq (loop for elt in textile-font-lock-keywords
16 for face = (nth 2 elt)
18 (eq (car face) 'quote)
19 (eq (cadr face) 'textile-acronym-face)) return elt)
20 textile-font-lock-keywords))
23 (add-hook 'textile-mode-hook 'longlines-mode)