vc-svn.el, emacs21, and subversion1.7

vc-svn.el, emacs21, and subversion1.7

[Karl Berry]

Does anyone happen to have a vc-svn.el that works with
(a) emacs21, and
(b) subversion 1.7/1.8?

As mentioned in
http://lists.gnu.org/archive/html/emacs-devel/2011-02/msg00357.html,
subversion now just has one "root" .svn directory.  That's nice, but it
means that the usual vc-svn.el for emacs21
(http://svn.apache.org/repos/asf/subversion/trunk/contrib/client-side/emacs/vc-svn.el)
no longer thinks anything is under version control.

My searches turned up no fixes for this.  There were fixes around for
psvn.el, but I like vc-svn.  And vc-svn in current Emacs is presumably
fine, but I can't upgrade to that yet (working as hard as I can).

Hence ... help?

Thanks,
Karl

Re: vc-svn.el, emacs21, and subversion1.7

[Glenn Morris]

Karl Berry wrote:

> Does anyone happen to have a vc-svn.el that works with
> (a) emacs21, and
> (b) subversion 1.7/1.8?

The last release of Emacs 21 was in 2005.
SVN 1.7 was released in 2011.
The first release of Emacs that supported SVN at all was 22.1.
The first release of Emacs that supported SVN 1.7 was 24.1.

Maybe you can take vc-svn.el from Emacs 22.1, and apply the patch from

http://lists.gnu.org/archive/html/emacs-diffs/2011-02/msg00187.html

(But that's just the patch from the message that you cited.)

> And vc-svn in current Emacs is presumably fine, but I can't upgrade to
> that yet (working as hard as I can).

Sorry, but I think upgrading to 24.1+ is your best solution.

Re: vc-svn.el, emacs21, and subversion1.7

[Richard Copley]

On 25 June 2013 20:08, Glenn Morris <rgm@gnu.org> wrote:
> Karl Berry wrote:
>
>> Does anyone happen to have a vc-svn.el that works with
>> (a) emacs21, and
>> (b) subversion 1.7/1.8?

I used to have this in my "site-start.el" (I can't tell you what
version of Emacs this was, your mileage may vary):

(defadvice vc-svn-registered (around no-admin-dir-check (file) activate)
  "As of Subversion 1.7, it is no longer the case that each
subdirectory in a working copy contains the \".svn\" directory.
Don't test for it before invoking the Subversion client."
  (require 'vc-svn) ;; I don't care about autoloads!
  (setq ad-return-value
        ;; This is just the guts of the original function,
        ;; as defined in "vc-svn.el".
        (with-temp-buffer
          (cd (file-name-directory file))
          (let* (process-file-side-effects
                 (status
                  (condition-case nil
                  ;; Ignore all errors.
                  (vc-svn-command t t file "status" "-v")
                  ;; Some problem happened.  E.g. We can't find an `svn'
                  ;; executable.  We used to only catch `file-error' but when
                  ;; the process is run on a remote host via Tramp, the error
                  ;; is only reported via the exit status which is turned into
                  ;; an `error' by vc-do-command.
                  (error nil))))
            (when (eq 0 status)
              (let ((parsed (vc-svn-parse-status file)))
                (and parsed (not (memq parsed '(ignored unregistered))))))))))