 (defface svn-status-filename-face
   '((((class color) (background light)) (:foreground "chocolate"))
     (((class color) (background dark)) (:foreground "beige")))
-  "Face for non-directories in svn status buffers.
+  "Face for non-directories in *svn-status* buffers.
 See `svn-status--line-info->directory-p' for what counts as a directory."
   :group 'psvn-faces)
 

      (message "No file on this line"))))

(defun svn-status-ensure-cursor-on-file ()
  (unless (svn-status-get-line-information)
    (error "No file on the current line")))


                       (svn-status-line-info->directory-p line-info)
                       (svn-status-line-info->filename-nondirectory line-info)
                       'svn-status-directory-face
                       'svn-status-filename-face)
                      ;; if it's a symlkink, add '-> target'
                      (let ((target (svn-status-line-info->symlink-p line-info)))
                        (when target
                          (concat " -> "
                                  ;; add face to target: could maybe
                                  ;; use different faces for
                                  ;; unversioned targets?
                                  (svn-status-choose-face-to-add
                                   (file-directory-p target)
                                   (file-relative-name
                                    target
                                    (svn-status-line-info->directory-containing-line-info
                                     line-info t)); name relative to dir of line-info, not '.'
                                   'svn-status-directory-face
                                   'svn-status-filename-face)
                                  )))
                      ))
        (elide-hint (if (svn-status-line-info->show-user-elide-continuation line-info) " ..." "")))
    (svn-puthash (svn-status-line-info->filename line-info)
                 (point)
