mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(vc-update-change-log): Use file-relative-name.

Browse Source
This commit is contained in:
Roland McGrath 1992-09-27 02:42:08 +00:00
parent 71fe1fcc56
commit f480bf4b74
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/vc.el
View File

@ -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 @@ From a program, any arguments are passed to the `rcs2log' script."
(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")