equal
deleted
inserted
replaced
738 (let ((buf (current-buffer)) |
738 (let ((buf (current-buffer)) |
739 (update (equal buffer-file-name path))) |
739 (update (equal buffer-file-name path))) |
740 (hg-view-output (hg-output-buffer-name) |
740 (hg-view-output (hg-output-buffer-name) |
741 (apply 'call-process (hg-binary) nil t nil (list "add" path)) |
741 (apply 'call-process (hg-binary) nil t nil (list "add" path)) |
742 (hg-fix-paths) |
742 (hg-fix-paths) |
743 (goto-char 0) |
743 (goto-char (point-min)) |
744 (cd (hg-root path))) |
744 (cd (hg-root path))) |
745 (when update |
745 (when update |
746 (unless vc-make-backup-files |
746 (unless vc-make-backup-files |
747 (set (make-local-variable 'backup-inhibited) t)) |
747 (set (make-local-variable 'backup-inhibited) t)) |
748 (with-current-buffer buf |
748 (with-current-buffer buf |
978 (update (equal buffer-file-name path))) |
978 (update (equal buffer-file-name path))) |
979 (hg-view-output (hg-output-buffer-name) |
979 (hg-view-output (hg-output-buffer-name) |
980 (apply 'call-process (hg-binary) nil t nil (list "forget" path)) |
980 (apply 'call-process (hg-binary) nil t nil (list "forget" path)) |
981 ;; "hg forget" shows pathes relative NOT TO ROOT BUT TO REPOSITORY |
981 ;; "hg forget" shows pathes relative NOT TO ROOT BUT TO REPOSITORY |
982 (hg-fix-paths) |
982 (hg-fix-paths) |
983 (goto-char 0) |
983 (goto-char (point-min)) |
984 (cd (hg-root path))) |
984 (cd (hg-root path))) |
985 (when update |
985 (when update |
986 (with-current-buffer buf |
986 (with-current-buffer buf |
987 (when (local-variable-p 'backup-inhibited) |
987 (when (local-variable-p 'backup-inhibited) |
988 (kill-local-variable 'backup-inhibited)) |
988 (kill-local-variable 'backup-inhibited)) |