Mercurial > hg > mercurial-crew-with-dirclash

comparison contrib/mercurial.el @ 2984:e1762867a734

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mercurial.el: fix calls to goto-char.
author Bryan O'Sullivan <bos@serpentine.com>
date Tue, 22 Aug 2006 08:54:19 -0700
parents 48baf9fb1921
children e75fdc37100c
comparison
equal deleted inserted replaced
2983:48baf9fb1921 2984:e1762867a734
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))