 ;;; Code:
 
 ; user setable variables
+(defvar svn-log-edit-file-name "++svn-log++" "Name of a saved log file")
 (defvar svn-status-hide-unknown nil "Hide unknown files in *svn-status* buffer.")
 (defvar svn-status-hide-unmodified nil "Hide unmodified files in *svn-status* buffer.")
 (defvar svn-status-directory-history nil "List of visited svn working directories.")

            (error "Unknown status line format."))))
          (unless path (setq path "."))
          (setq user-mark (not (not (member path old-marked-files))))
          ;;(setq svn-status-info (append svn-status-info
          ;;                              (list
          ;;                               (list user-mark
          ;;                                     svn-file-mark
          ;;                                     svn-property-mark
          ;;                                     path
          ;;                                     local-rev
          ;;                                     last-change-rev
          ;;                                     author
          ;;                                     modified-external)))))
                                               ;;file-svn-info
          (setq svn-status-info (cons (list user-mark
                                            svn-file-mark
                                            svn-property-mark

    (svn-status-update-buffer)
    (svn-status-goto-file-name newcursorpos-fname)))

(defun svn-status-unset-all-usermarks ()
  (interactive)
  (let ((st-info svn-status-info))
    (while st-info
      (setcar (car st-info) nil)
      (setq st-info (cdr st-info)))
    (svn-status-update-buffer)))

(defun svn-status-toggle-hide-unknown ()
  (interactive)
  (setq svn-status-hide-unknown (not svn-status-hide-unknown))
