Mercurial > emacs

comparison lisp/vc.el @ 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 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)