   (interactive
    (list
     (let ((completion-ignore-case t)
-          (completion-function (if (fboundp 'ido-completing-read) 'ido-completing-read 'completing-read)))
+          (completion-function (if svn-status-use-ido-completion 'ido-completing-read 'completing-read)))
       (funcall completion-function "SVN status bookmark: " svn-bookmark-list))))
   (unless bookmark
     (error "No bookmark specified"))

                  (when svn-status-pre-run-svn-buffer
                    (with-current-buffer svn-status-pre-run-svn-buffer
                      (unless (eq major-mode 'svn-status-mode)
                        (let ((src-line-number (line-number-at-pos)))
                          (pop-to-buffer (get-buffer svn-status-last-output-buffer-name))
                          (goto-line src-line-number)))))
                  (message "svn blame finished"))

      (svn-add-face string face)
    ""))

;; compatibility
;; emacs 20
(defalias 'svn-point-at-eol
  (if (fboundp 'point-at-eol) 'point-at-eol 'line-end-position))
(defalias 'svn-point-at-bol
