                    (if svn-status-sort-status-buffer "" " not")
                    " sorted.")))
 
+(defun svn-status-toggle-display-full-path ()
+  "Toggle displaying the full path in the `svn-status-buffer-name' buffer"
+  (interactive)
+  (setq svn-status-display-full-path (not svn-status-display-full-path))
+  (message (concat "The `svn-status-buffer-name' buffer will"
+                   (if svn-status-display-full-path "" " not")
+                   " use full path names."))
+  (svn-status-update))
+
 (defun svn-status-set-trac-project-root ()
   (interactive)
   (setq svn-trac-project-root

                            (if svn-status-short-mod-flag-p "   " "")))
        (filename  ;; <indentation>file or /path/to/file
                     (concat
                      (if svn-status-hide-unmodified
                          (svn-add-face
                           (file-name-as-directory
                            (svn-status-line-info->directory-containing-line-info line-info nil))
                           'svn-status-directory-face)
                        ;; showing all files, so add indentation
                        (make-string (* 2 (svn-status-count-/

  (define-key svn-status-mode-options-map (kbd "s") 'svn-status-save-state)
  (define-key svn-status-mode-options-map (kbd "l") 'svn-status-load-state)
  (define-key svn-status-mode-options-map (kbd "x") 'svn-status-toggle-sort-status-buffer)
  (define-key svn-status-mode-options-map (kbd "f") 'svn-status-toggle-display-full-path)
  (define-key svn-status-mode-options-map (kbd "t") 'svn-status-set-trac-project-root)
  (define-key svn-status-mode-options-map (kbd "n") 'svn-status-set-module-name)
  (define-key svn-status-mode-map (kbd "O") svn-status-mode-options-map))
