equal
deleted
inserted
replaced
970 (replace-regexp " \\.\\.." " " nil 0 (buffer-size)) |
970 (replace-regexp " \\.\\.." " " nil 0 (buffer-size)) |
971 (goto-char 0) |
971 (goto-char 0) |
972 (cd (hg-root path))) |
972 (cd (hg-root path))) |
973 (when update |
973 (when update |
974 (with-current-buffer buf |
974 (with-current-buffer buf |
975 (set (make-local-variable 'backup-inhibited) nil) |
975 (when (local-variable-p 'backup-inhibited) |
|
976 (kill-local-variable 'backup-inhibited)) |
976 (hg-mode-line))))) |
977 (hg-mode-line))))) |
977 |
978 |
978 (defun hg-incoming (&optional repo) |
979 (defun hg-incoming (&optional repo) |
979 "Display changesets present in REPO that are not present locally." |
980 "Display changesets present in REPO that are not present locally." |
980 (interactive (list (hg-read-repo-name " where changes would come from"))) |
981 (interactive (list (hg-read-repo-name " where changes would come from"))) |