     (write-region (point-min) (point-max)
                   (concat svn-status-temp-dir "svn-log-edit.txt" svn-temp-suffix) nil 1))
   (when svn-status-files-to-commit ; there are files to commit
+    (setq svn-status-operated-on-dot (and (= 1 (length svn-status-files-to-commit))
+         (string= "." (svn-status-line-info->filename (car svn-status-files-to-commit)))))
     (svn-status-create-arg-file svn-status-temp-arg-file ""
                                 svn-status-files-to-commit "")
     (setq svn-status-files-to-commit nil)

               (setq action 'unknown)))
        (unless done
          (forward-char 15)
          (setq name (buffer-substring-no-properties (point) (point-at-eol)))
          ;;(message "%S %S" action name)
          (setq result (cons (list name action)

(defvar svn-status-temp-arg-file (concat svn-status-temp-dir "svn.arg" svn-temp-suffix))
(defvar svn-status-options nil)
(defvar svn-status-commit-rev-number nil)
(defvar svn-status-operated-on-dot nil)

;;; faces
(defface svn-status-marked-face
