ugly hack (was: change the format of vc-version-other-window)

Hello I don't like this format and prefer much more foo-rev-1.2 The following function does what I want, but it is not more than a very ugly hack, improvements well come (defun my-vc-version-other-window-new (rev) "Visit version REV of the current file in another window. If the current file is named `F', the version is named `F-rev-REV'. If `F-rev-REV' already exists, use it instead of checking it out again." (interactive "sVersion to visit (default is workfile version): ") (vc-ensure-vc-buffer) (let* ((file buffer-file-name) (version (if (string-equal rev "") (vc-workfile-version file) rev))) (let ((filename (concat (file-name-sans-extension buffer-file-name) "-rev-" version "." (file-name-extension buffer-file-name)))) (switch-to-buffer-other-window (vc-find-version file version)) (write-file filename t nil)))) _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta