   "Get the property status for the file at POS."
   (char-after (+ pos svn-status-flags-col 1)))
 
+(defface svn-mark-face
+  '((((type tty) (class color))
+     (:background "cyan" :foreground "black"))
+    (((class color) (background light))
+     (:background "yellow2"))
+    (((class color) (background dark))
+     (:background "darkblue"))
+    (t (:inverse-video t)))
+  "Face used to highlight marked files"
+  :group 'dsvn)
+
+(defun svn-highlight-line (mark)
+  (save-excursion
+    (beginning-of-line)
+    (let ((start (point)))
+      (forward-line)
+      (let ((end (point))
+	    (prop (list 'face 'svn-mark-face)))
+	(if mark
+	    (add-text-properties start end prop)
+	  (remove-text-properties start end prop))))))
+
 (defun svn-set-mark (pos mark)
   "Update the mark on the status line at POS.
 Set it if MARK is non-NIL, and clear it if MARK is NIL."

  ;; First retrieve the property names, and then the value of each.
  ;; We can't use proplist -v because is output is ambiguous when values
  ;; consist of multiple lines.
  (let (propnames)
    (with-current-buffer (svn-run-hidden 'proplist (list file))
      (goto-char (point-min))

(defvar svn-status-buffer nil
  "svn-status buffer describing the files that a commit operation applies to")
(make-variable-buffer-local 'svn-status-buffer)

(defvar svn-todo-queue '()
  "A queue of commands to run when the current command finishes.")
(make-variable-buffer-local 'svn-todo-queue)

(defun svn-current-url ()
  "Get the repository URL."
