X-Git-Url: http://g0dil.de/git?a=blobdiff_plain;f=setup%2Ftextile-mode.el;h=309b4700306137d21b7bd068acb8c7edade9b087;hb=648269ec61ba7e7f9ec423a17f3ee06efae6fca4;hp=9799c503cbb06ca98162d6108d7189c721b7104a;hpb=9f7c3774ee03d410d968cd9e5470fdcd1cd2b213;p=emacs-init.git

diff --git a/setup/textile-mode.el b/setup/textile-mode.el
index 9799c50..309b470 100644
--- a/setup/textile-mode.el
+++ b/setup/textile-mode.el
@@ -1,15 +1,20 @@
 (add-to-list 'load-path (concat (file-name-directory
-								 (directory-file-name 
-								  (file-name-directory (or load-file-name
-														   (when (boundp 'bytecomp-filename) bytecomp-filename)
-														   buffer-file-name))))
-								"textile-mode"))
+                                 (directory-file-name
+                                  (file-name-directory
+                                   (or load-file-name
+                                       (when (boundp 'bytecomp-filename) bytecomp-filename)
+                                       buffer-file-name))))
+                                "textile-mode"))
 
 (require 'textile-mode)
 
 (add-to-list 'auto-mode-alist '("/itsalltext/otds.traveltainment.de" . textile-mode))
+(add-to-list 'edit-server-url-major-mode-alist '("tpm.traveltainment.int" . textile-mode))
 
-(setq textile-font-lock-keywords (delq (loop for elt in textile-font-lock-keywords 
-											 for face = (nth 2 elt) 
-											 if (and (consp face) (eq (car face) 'quote) (eq (cadr face) 'textile-acronym-face)) return elt)
-									   textile-font-lock-keywords))
+(setq textile-font-lock-keywords
+      (delq (loop for elt in textile-font-lock-keywords
+                  for face = (nth 2 elt)
+                  if (and (consp face)
+                          (eq (car face) 'quote)
+                          (eq (cadr face) 'textile-acronym-face)) return elt)
+            textile-font-lock-keywords))