             (or (eq (svn-status-line-info->propmark line-info) ?_)
                 (eq (svn-status-line-info->propmark line-info) ? )))))
 
+
 (defun svn-insert-line-in-status-buffer (line-info)
-  (font-lock-mode t)
-  ;;(insert (propertize "*" 'font-lock-face 'font-lock-constant-face))
-  (insert (format "%s %c%c %3s %3s %-9s %s%s\n"
-                  (if (svn-status-line-info->has-usermark line-info)
-                      (propertize "*" 'font-lock-face 'font-lock-constant-face)
-                    " ")
-                  (svn-status-line-info->filemark line-info)
-                  (or (svn-status-line-info->propmark line-info) ? )
-                  (or (svn-status-line-info->localrev line-info) "")
-                  (or (svn-status-line-info->lastchangerev line-info) "")
-                  (svn-status-line-info->author line-info)
-                  (svn-status-line-info->filename line-info)
-                  (if (svn-status-line-info->modified-external line-info)
-                      " (modified external)" ""))))
+  (let ((s "*"))
+    (let ((usermark (if (svn-status-line-info->has-usermark line-info)
+                        (svn-add-face "*" 'svn-status-marked-face)
+                      " "))
+          (external (if (svn-status-line-info->modified-external line-info)
+                        (svn-add-face " (modified external)" 'svn-status-modified-external-face)
+                      "")))
+      (insert (concat usermark
+                      (format " %c%c %3s %3s %-9s %s"
+                              (svn-status-line-info->filemark line-info)
+                              (or (svn-status-line-info->propmark line-info) ? )
+                              (or (svn-status-line-info->localrev line-info) "")
+                              (or (svn-status-line-info->lastchangerev line-info) "")
+                              (svn-status-line-info->author line-info)
+                              (svn-status-line-info->filename line-info))
+                      external
+                      "\n")))))
 
 (defun svn-status-update-buffer ()
   (interactive)

                                               ;;file-svn-info
          (next-line 1)))))

(easy-menu-add-item nil '("tools") ["SVN Status" svn-status t] "PCL-CVS")

(defvar svn-status-mode-map () "Keymap used in svn-status-mode buffers.")
(defvar svn-status-mode-property-map ()


(require 'overlay)

;; internal variables
(defvar svn-process-cmd nil)
(defvar svn-status-info nil)
(defvar svn-status-default-column 23)
