Mercurial > emacs
diff lisp/vc.el @ 1232:2c56a159c9b6
(vc-update-change-log): Use file-relative-name.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Sun, 27 Sep 1992 02:42:08 +0000 |
| parents | d07030650283 |
| children | de79e26e67cf |
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")