equal
deleted
inserted
replaced
616 |
616 |
617 (defun hg-commit-finish () |
617 (defun hg-commit-finish () |
618 (interactive) |
618 (interactive) |
619 (goto-char (point-min)) |
619 (goto-char (point-min)) |
620 (search-forward hg-commit-message-start) |
620 (search-forward hg-commit-message-start) |
621 (let (message files) |
621 (let ((root hg-root) |
|
622 message files) |
622 (let ((start (point))) |
623 (let ((start (point))) |
623 (goto-char (point-max)) |
624 (goto-char (point-max)) |
624 (search-backward hg-commit-message-end) |
625 (search-backward hg-commit-message-end) |
625 (setq message (hg-strip (buffer-substring start (point))))) |
626 (setq message (hg-strip (buffer-substring start (point))))) |
626 (when (and (= (length message) 0) |
627 (when (and (= (length message) 0) |
640 (error "Cannot proceed - no files to commit")) |
641 (error "Cannot proceed - no files to commit")) |
641 (setq message (concat message "\n")) |
642 (setq message (concat message "\n")) |
642 (apply 'hg-run0 "--cwd" hg-root "commit" "-m" message files) |
643 (apply 'hg-run0 "--cwd" hg-root "commit" "-m" message files) |
643 (let ((buf hg-prev-buffer)) |
644 (let ((buf hg-prev-buffer)) |
644 (kill-buffer nil) |
645 (kill-buffer nil) |
645 (switch-to-buffer buf)))) |
646 (switch-to-buffer buf)) |
|
647 (hg-do-across-repo root |
|
648 (hg-mode-line)))) |
646 |
649 |
647 (defun hg-commit-mode () |
650 (defun hg-commit-mode () |
648 "Mode for describing a commit of changes to a Mercurial repository. |
651 "Mode for describing a commit of changes to a Mercurial repository. |
649 This involves two actions: describing the changes with a commit |
652 This involves two actions: describing the changes with a commit |
650 message, and choosing the files to commit. |
653 message, and choosing the files to commit. |