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

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
Received on Sun Jun 20 13:57:00 2004