Mercurial > emacs
changeset 2968:ee5df97bc4b1
(vc-comment-to-change-log): Don't take FILE argument, since
vc-update-change-log doesn't support it anyway.
Don't bind default-directory. Instead pass second arg to file-relative-name.
(vc-update-change-log): Use find-change-log instead of hardcoding.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Sat, 22 May 1993 22:33:19 +0000 |
| parents | 6b62c36ce82e |
| children | cc462a35860a |
| files | lisp/vc.el |
| diffstat | 1 files changed, 7 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Sat May 22 22:09:25 1993 +0000 +++ b/lisp/vc.el Sat May 22 22:33:19 1993 +0000 @@ -1,6 +1,6 @@ ;;; vc.el --- drive a version-control system from within Emacs -;; Copyright (C) 1992 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993 Free Software Foundation, Inc. ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> ;; Version: 5.4 @@ -586,17 +586,15 @@ ;;; Here is a checkin hook that may prove useful to sites using the ;;; ChangeLog facility supported by Emacs. -(defun vc-comment-to-change-log (&optional file) +(defun vc-comment-to-change-log () "Update change log from VC change comments entered for the current file. -Optional FILE specifies the change log file name; see `find-change-log'. See `vc-update-change-log'." (interactive) - (let ((log (find-change-log file))) + (let ((log (find-change-log))) (if log - (let ((default-directory (or (file-name-directory log) - default-directory))) - (vc-update-change-log - (file-relative-name buffer-file-name)))))) + (vc-update-change-log + (file-relative-name buffer-file-name + (file-name-directory (expand-file-name log))))))) (defun vc-finish-logentry (&optional nocomment) "Complete the operation implied by the current log entry." @@ -1126,7 +1124,7 @@ (setq files (cons (file-relative-name file) files))) (setq buffers (cdr buffers))) files)))) - (find-file-other-window "ChangeLog") + (find-file-other-window (find-change-log)) (barf-if-buffer-read-only) (vc-buffer-sync) (undo-boundary)