Re: svn commit: r10022 - trunk/contrib/client-side/psvn

[Kalle Olavi Niemitalo <ko...@iki.fi>]

xsteve@tigris.org writes:

> +(defun svn-status-file-name-sans-versions (name &optional keep-backup-version)
> +  "Strip the version info from a psvn revision file name."
> +  (string-match "\\(.+\\)\\.~.+~" name)
> +  (or (match-string-no-properties 1 name) name))

I wonder if you could get a similar effect by adding an entry in
auto-mode-alist.  GNU Emacs 21.3 already has the following:

     ;; Get rid of any trailing .n.m and try again.
     ;; This is for files saved by cvs-merge that look like .#<file>.<rev>
     ;; or .#<file>.<rev>-<rev> or VC's <file>.~<rev>~.
     ;; Using mode nil rather than `ignore' would let the search continue
     ;; through this list (with the shortened name) rather than start over.
     ("\\.~?[0-9]+\\.[0-9][-.0-9]*~?\\'" ignore t)

> +(defun svn-revision-normal-mode ()
> +  "Run normal-mode in a svn revision file."
> +  (interactive)
> +  (flet ((file-name-sans-versions
> +          (name &optional keep-backup-version)
> +          (svn-status-file-name-sans-versions name keep-backup-version)))
> +    (normal-mode)))

That should perhaps be (normal-mode t).

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@subversion.tigris.org
For additional commands, e-mail: dev-help@subversion.tigris.org