# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 717561728 0
# Node ID 2c56a159c9b602293cd6fdffc3a1eb8b4bb03f1c
# Parent  f1090e9652443581de13a91eec604782e0506dba
(vc-update-change-log): Use file-relative-name.

diff -r f1090e965244 -r 2c56a159c9b6 lisp/vc.el
--- a/lisp/vc.el	Sun Sep 27 02:40:49 1992 +0000
+++ b/lisp/vc.el	Sun Sep 27 02:42:08 1992 +0000
@@ -5,7 +5,7 @@
 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Version: 4.0
 
-;;	$Id: vc.el,v 1.4 1992/09/27 01:31:15 roland Exp roland $	
+;;	$Id: vc.el,v 1.5 1992/09/27 01:51:04 roland Exp roland $	
 
 ;; This file is part of GNU Emacs.
 
@@ -781,11 +781,7 @@
 	    (while buffers
 	      (setq file (buffer-file-name (car buffers)))
 	      (and file (vc-backend-deduce file)
-		   (setq files (cons (if (equal (file-name-directory file)
-						default-directory)
-					 (file-name-nondirectory file)
-				       file)
-				     files)))
+		   (setq files (cons (file-relative-name file) files)))
 	      (setq buffers (cdr buffers)))
 	    files))))
   (find-file-other-window "ChangeLog")