Mercurial > emacs
comparison lisp/vc.el @ 2493:3af65d9b91e7
(vc-comment-to-change-log): Merged in the remainder of jimb's last
change.
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Thu, 08 Apr 1993 16:51:04 +0000 |
| parents | 70d00ecacc0d |
| children | 5686672705bf |
comparison
equal
deleted
inserted
replaced
| 2492:de8b66eb78cf | 2493:3af65d9b91e7 |
|---|---|
| 530 (setq vc-log-after-operation-hook 'vc-checkin-hook) | 530 (setq vc-log-after-operation-hook 'vc-checkin-hook) |
| 531 (vc-start-entry file rev comment "Enter a change comment." 'vc-backend-checkin)) | 531 (vc-start-entry file rev comment "Enter a change comment." 'vc-backend-checkin)) |
| 532 | 532 |
| 533 ;;; Here is a checkin hook that may prove useful to sites using the | 533 ;;; Here is a checkin hook that may prove useful to sites using the |
| 534 ;;; ChangeLog facility supported by Emacs. | 534 ;;; ChangeLog facility supported by Emacs. |
| 535 (defun vc-comment-to-change-log () | 535 (defun vc-comment-to-change-log (&optional file) |
| 536 (let ((log (find-change-log))) | 536 "Update change log from comments entered into VC for the current file. |
| 537 Optional FILE specifies the change log file name; see `find-change-log'. | |
| 538 See `vc-update-change-log'." | |
| 539 (let ((log (find-change-log file))) | |
| 537 (if log | 540 (if log |
| 538 (let ((default-directory (or (file-name-directory log) | 541 (let ((default-directory (or (file-name-directory log) |
| 539 default-directory))) | 542 default-directory))) |
| 540 (vc-update-change-log | 543 (vc-update-change-log |
| 541 (file-relative-name buffer-file-name)))))) | 544 (file-relative-name buffer-file-name)))))) |