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

(vc-comment-to-change-log): Don't take FILE argument, since

Browse Source 
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.
This commit is contained in:
Roland McGrath 1993-05-22 22:33:19 +00:00
parent 758c80c0f3
commit 69268c787f
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/vc.el
View File

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