         (setq pl (append pl (list (match-string 1))))
         (forward-line 1)))
     ;(cond last-command: svn-status-property-set, svn-status-property-edit-one-entry
-    ;svn-status-property-parse:
-    (cond ((eq last-command 'svn-status-property-parse)
-           ;(message "%S %S" pl last-command)
-           (while pl
-             (svn-run-svn nil t 'propget-parse "propget" (car pl)
-                          (svn-status-line-info->filename
-                           (svn-status-get-line-information)))
-             (save-excursion
-               (set-buffer "*svn-process*")
-               (setq pfl (append pfl (list
-                                      (list
-                                       (car pl)
-                                       (buffer-substring
-                                        (point-min) (- (point-max) 1)))))))
-             (setq pl (cdr pl))
-             (message "%S" pfl)))
-          ((eq last-command 'svn-status-property-edit-one-entry)
+    (cond ((eq last-command 'svn-status-property-edit-one-entry)
            ;;(message "svn-status-property-edit-one-entry")
            (setq prop-name
                  (completing-read "Set Property - Name: " (mapcar 'list pl)

    (insert "\n "
            (format svn-status-line-format
                    70 80 72 "locl" "chgd" "author")
            "em file\n")
    (setq svn-start-of-file-list-line-number (+ (count-lines (point-min) (point)) 1))
    (if fname
        (progn

(defun svn-status-proplist-start ()
  (svn-run-svn t t 'proplist-parse "proplist" (svn-status-line-info->filename
                                               (svn-status-get-line-information))))
(defun svn-status-property-edit-one-entry (arg)
  "Edit a property.
When called with a prefix argument, it is possible to enter a new property."
