rooneg@tigris.org writes:
> Ok, I feel like I'm betraying the rest of the vi using world by
> doing this, but i was bored this weekend and felt like visiting the
> dark side...
>
> If someone with more than a passing familiarity with emacs-lisp
> (kfogel this means you) could take a look at this, I would appreciate it.
:-)
The code looks pro to me -- I assume it actually works (?), haven't
tested it.
> * tools/client-side/vc-svn.el
> (vc-svn-find-version): implement, this makes vc-version-other-window work.
>
>
> Modified: trunk/tools/client-side/vc-svn.el
> ==============================================================================
> --- trunk/tools/client-side/vc-svn.el (original)
> +++ trunk/tools/client-side/vc-svn.el Sat May 3 19:17:03 2003
> @@ -23,7 +23,6 @@
> ;;; - mode-line-string, to show newly added files, modified props?
> ;;; see vc-cvs-mode-line-string
> ;;; - merge across arbitrary revisions
> -;;; - allow getting read-only copies for vc-version-other-window etc
> ;;;
> ;;; VC passes the vc-svn-register function a COMMENT argument, which
> ;;; is like the file description in CVS and RCS. Could we store the
> @@ -407,5 +406,8 @@
> (if (or async (> (buffer-size (get-buffer "*vc-diff*")) 0))
> 1 0))))
>
> +(defun vc-svn-find-version (file rev buffer)
> + (apply 'vc-do-command buffer 0 vc-svn-program-name file
> + "cat" (list "-r" rev)))
>
> (provide 'vc-svn)
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: svn-unsubscribe@subversion.tigris.org
> For additional commands, e-mail: svn-help@subversion.tigris.org
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@subversion.tigris.org
For additional commands, e-mail: dev-help@subversion.tigris.org
Received on Mon May 5 18:26:07 2003