                        (svn-status-line-info->directory-p line-info)
                        (svn-status-line-info->filename-nondirectory line-info)
                        'svn-status-directory-face
-                       'svn-status-filename-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)

This can be set with \\[svn-status-set-trac-project-root].")

(defvar svn-status-module-name nil
  "A nice short name for the actual project.
This can be set with \\[svn-status-set-module-name].")

(defvar svn-status-load-state-before-svn-status t "Load the ++psvn.state file, before running svn-status")

;;; hooks
(defvar svn-log-edit-mode-hook nil "Hook run when entering `svn-log-edit-mode'.")

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

(defun svn-status-ensure-cursor-on-file ()
	"Raise an error unless point is on a valid file."
  (unless (svn-status-get-line-information)
    (error "No file on the current line")))

