            (when (string= (buffer-name) "*svn-status*")
              (bury-buffer))))))
 
-(defun svn-status-find-file ()
-  (interactive)
-  (find-file (svn-status-line-info->filename
-      (svn-status-get-line-information))))
+(defun svn-status-find-files ()
+  "Open selected file(s) for editing.
+See `svn-status-marked-files' for what counts as selected."
+  (interactive)
+  (let ((fnames (mapcar 'svn-status-line-info->full-path (svn-status-marked-files))))
+    (mapc 'find-file fnames)))
+
 
 (defun svn-status-find-file-other-window ()
   "Open the file in the other window for editing."


;;; default arguments to pass to svn commands
(defvar svn-status-default-log-arguments ""
  "Arguments to pass to svn log
\(used in `svn-status-show-svn-log'; override these by giving prefixes\).")

;;; hooks

  (interactive)
  (write-region (point-min) (point-max) svn-log-edit-file-name))

(defun svn-log-edit-erase-edit-buffer ()
  "Delete everything in the *svn-log-edit* buffer."
  (interactive)
  (set-buffer "*svn-log-edit*")
  (erase-buffer))

(provide 'psvn)
