 (defun svn-log-resolve-trac-ticket-short (link-name)
   "Show the trac ticket specified by LINK-NAME via `svn-trac-browse-ticket'."
   (interactive)
-  (let ((ticket-nr (string-to-number (substring-no-properties link-name 1))))
+  (let ((ticket-nr (string-to-number (svn-substring-no-properties link-name 1))))
     (svn-trac-browse-ticket ticket-nr)))
 
 ;; register the out of the box provided link handlers

        (goto-char opoint)
        (forward-line 0)
        (1+ (count-lines start (point)))))))

; xemacs
;; Evaluate the defsubst at compile time, so that the byte compiler


(defsubst svn-status-in-vc-mode? ()
  "Is vc-svn active?"
  (and vc-mode (string-match "^ SVN" (svn-substring-no-properties vc-mode))))

(when svn-status-fancy-file-state-in-modeline
  (defadvice vc-find-file-hook (after svn-status-vc-svn-find-file-hook activate)
