setup/textile-mode.el

   1 (add-to-list 'load-path (concat (file-name-directory
   2                                  (directory-file-name
   3                                   (file-name-directory
   4                                    (or load-file-name
   5                                        (when (boundp 'bytecomp-filename) bytecomp-filename)
   6                                        buffer-file-name))))
   7                                 "textile-mode"))
   8
   9 (require 'textile-mode)
  10
  11 (add-to-list 'auto-mode-alist '("/itsalltext/otds.traveltainment.de" . textile-mode))
  12 (add-to-list 'edit-server-url-major-mode-alist '("tpm.traveltainment.int" . textile-mode))
  13
  14 (setq textile-font-lock-keywords
  15       (delq (loop for elt in textile-font-lock-keywords
  16                   for face = (nth 2 elt)
  17                   if (and (consp face)
  18                           (eq (car face) 'quote)
  19                           (eq (cadr face) 'textile-acronym-face)) return elt)
  20             textile-font-lock-keywords))