changeset 4694 | 6bf58c9400e2 |
parent 4693 | 3f484688c702 |
child 4875 | 97dbf330069a |
child 5081 | ea7b982b6c08 |
--- a/contrib/mercurial.el Tue May 22 08:05:16 2007 +0900 +++ b/contrib/mercurial.el Tue May 22 07:24:06 2007 +0900 @@ -764,10 +764,11 @@ (add-hook 'find-file-hooks 'hg-find-file-hook) (defun hg-after-save-hook () - (let ((old-status hg-status)) - (hg-mode-line) - (if (and (not old-status) hg-status) - (hg-mode)))) + (ignore-errors + (let ((old-status hg-status)) + (hg-mode-line) + (if (and (not old-status) hg-status) + (hg-mode))))) (add-hook 'after-save-hook 'hg-after-save-hook)