equal
deleted
inserted
replaced
762 (hg-mode)))) |
762 (hg-mode)))) |
763 |
763 |
764 (add-hook 'find-file-hooks 'hg-find-file-hook) |
764 (add-hook 'find-file-hooks 'hg-find-file-hook) |
765 |
765 |
766 (defun hg-after-save-hook () |
766 (defun hg-after-save-hook () |
767 (let ((old-status hg-status)) |
767 (ignore-errors |
768 (hg-mode-line) |
768 (let ((old-status hg-status)) |
769 (if (and (not old-status) hg-status) |
769 (hg-mode-line) |
770 (hg-mode)))) |
770 (if (and (not old-status) hg-status) |
|
771 (hg-mode))))) |
771 |
772 |
772 (add-hook 'after-save-hook 'hg-after-save-hook) |
773 (add-hook 'after-save-hook 'hg-after-save-hook) |
773 |
774 |
774 |
775 |
775 ;;; User interface functions. |
776 ;;; User interface functions. |