                      "-F" svn-status-temp-file-to-remove)
         (save-excursion
           (set-buffer "*svn-process*")
-          (message (buffer-substring (point-min) (- (point-max) 1)))))
+          (message "%s" (buffer-substring (point-min) (- (point-max) 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))

display routine for svn-status is available."
  (interactive)
  (setq svn-status-sort-status-buffer (not svn-status-sort-status-buffer))
  (message (concat "The `svn-status-buffer-name' buffer will be"
                   (if svn-status-sort-status-buffer "" " not")
                   " sorted.")))

(defun svn-status-toggle-display-full-path ()
  "Toggle displaying the full path in the `svn-status-buffer-name' buffer"
  (interactive)
  (setq svn-status-display-full-path (not svn-status-display-full-path))
  (message (concat "The `svn-status-buffer-name' buffer will"
                   (if svn-status-display-full-path "" " not")
                   " use full path names."))
  (svn-status-update))

(defun svn-status-set-trac-project-root ()

               (>= file-dir-len svn-dir-len)
               (string= (substring file-dir 0 svn-dir-len) svn-dir))
      (setq file-name (substring (buffer-file-name) svn-dir-len))
      ;;(message "In svn-status directory %S" file-name)
      (let ((st-info svn-status-info)
            (i-fname))
        (while st-info
          (setq i-fname (svn-status-line-info->filename (car st-info)))
          ;;(message "i-fname=%S" i-fname)
          (when (and (string= file-name i-fname)
                     (not (eq (svn-status-line-info->filemark (car st-info)) ??)))
            (svn-status-line-info->set-filemark (car st-info)
