setup/textile-mode.el

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