Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
1231:f1090e965244 | 1232:2c56a159c9b6 |
---|---|
3 ;; Copyright (C) 1992 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1992 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> | 5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> |
6 ;; Version: 4.0 | 6 ;; Version: 4.0 |
7 | 7 |
8 ;; $Id: vc.el,v 1.4 1992/09/27 01:31:15 roland Exp roland $ | 8 ;; $Id: vc.el,v 1.5 1992/09/27 01:51:04 roland Exp roland $ |
9 | 9 |
10 ;; This file is part of GNU Emacs. | 10 ;; This file is part of GNU Emacs. |
11 | 11 |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | 12 ;; GNU Emacs is free software; you can redistribute it and/or modify |
13 ;; it under the terms of the GNU General Public License as published by | 13 ;; it under the terms of the GNU General Public License as published by |
779 (buffers (buffer-list)) | 779 (buffers (buffer-list)) |
780 file) | 780 file) |
781 (while buffers | 781 (while buffers |
782 (setq file (buffer-file-name (car buffers))) | 782 (setq file (buffer-file-name (car buffers))) |
783 (and file (vc-backend-deduce file) | 783 (and file (vc-backend-deduce file) |
784 (setq files (cons (if (equal (file-name-directory file) | 784 (setq files (cons (file-relative-name file) files))) |
785 default-directory) | |
786 (file-name-nondirectory file) | |
787 file) | |
788 files))) | |
789 (setq buffers (cdr buffers))) | 785 (setq buffers (cdr buffers))) |
790 files)))) | 786 files)))) |
791 (find-file-other-window "ChangeLog") | 787 (find-file-other-window "ChangeLog") |
792 (vc-buffer-sync) | 788 (vc-buffer-sync) |
793 (undo-boundary) | 789 (undo-boundary) |