Mercurial > emacs

changeset 1232:2c56a159c9b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-update-change-log): Use file-relative-name.
author Roland McGrath <roland@gnu.org>
date Sun, 27 Sep 1992 02:42:08 +0000
parents f1090e965244
children e795fe80b14e
files lisp/vc.el
diffstat 1 files changed, 2 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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")