branch: elpa/vc-fossil
commit dffd03414e37123cae892ebe777d67596ad371c2
Author: fifr <fifr>
Commit: fifr <fifr>
Pipe commit message through log-edit-extract-headers.
See http://debbugs.gnu.org/cgi/bugreport.cgi?bug=18954
---
vc/el/vc-fossil.el | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/vc/el/vc-fossil.el b/vc/el/vc-fossil.el
index b3558aa..b3cbb77 100644
--- a/vc/el/vc-fossil.el
+++ b/vc/el/vc-fossil.el
@@ -211,10 +211,16 @@ If `files` is nil return the status for all files."
(defun vc-fossil-unregister (file)
(vc-fossil-command nil 0 file "rm"))
+(declare-function log-edit-extract-headers "log-edit" (headers string))
(defun vc-fossil-checkin (files rev comment)
- (apply 'vc-fossil-command nil 0 files "commit" "-m" comment
- (vc-switches 'Fossil 'checkin)))
+ (apply 'vc-fossil-command nil 0 files
+ (nconc (list "commit" "-m")
+ (log-edit-extract-headers
+ `(("Author" . "--user-override")
+ ("Date" . "--date-override"))
+ comment)
+ (vc-switches 'Fossil 'checkin))))
(defun vc-fossil-find-revision (file rev buffer)
(apply #'vc-fossil-command buffer 0 file
