Mercurial > hg > mercurial-crew-with-dirclash

comparison contrib/mercurial.el @ 2517:0086056322da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mercurial.el: inhibit backups for files managed by mercurial
author Vadim Gelfer <vadim.gelfer@gmail.com>
date Thu, 29 Jun 2006 10:27:09 -0700
parents 8e1004c61796
children d78ae783499d
comparison
equal deleted inserted replaced
2516:4716a58c8cd5 2517:0086056322da
651 651
652 The Mercurial mode user interface is based on that of VC mode, so if 652 The Mercurial mode user interface is based on that of VC mode, so if
653 you're already familiar with VC, the same keybindings and functions 653 you're already familiar with VC, the same keybindings and functions
654 will generally work. 654 will generally work.
655 655
656 Below is a list of many common SCM tasks. In the list, `G/L' 656 Below is a list of many common SCM tasks. In the list, `G/L\'
657 indicates whether a key binding is global (G) to a repository or local 657 indicates whether a key binding is global (G) to a repository or local
658 (L) to a file. Many commands take a prefix argument. 658 (L) to a file. Many commands take a prefix argument.
659 659
660 SCM Task G/L Key Binding Command Name 660 SCM Task G/L Key Binding Command Name
661 -------- --- ----------- ------------ 661 -------- --- ----------- ------------
680 See changes that can be pulled G C-c h , hg-incoming 680 See changes that can be pulled G C-c h , hg-incoming
681 Pull changes G C-c h < hg-pull 681 Pull changes G C-c h < hg-pull
682 Update working directory after pull G C-c h u hg-update 682 Update working directory after pull G C-c h u hg-update
683 See changes that can be pushed G C-c h . hg-outgoing 683 See changes that can be pushed G C-c h . hg-outgoing
684 Push changes G C-c h > hg-push" 684 Push changes G C-c h > hg-push"
685 (run-hooks 'hg-mode-hook)) 685 (unless vc-make-backup-files
686 (set (make-local-variable 'backup-inhibited) t))
687 (run-hooks 'hg-mode-hook))
686 688
687 (defun hg-find-file-hook () 689 (defun hg-find-file-hook ()
688 (when (hg-mode-line) 690 (when (hg-mode-line)
689 (hg-mode))) 691 (hg-mode)))
690 692
727 ;; "hg add" shows pathes relative NOT TO ROOT BUT TO REPOSITORY 729 ;; "hg add" shows pathes relative NOT TO ROOT BUT TO REPOSITORY
728 (replace-regexp " \\.\\.." " " nil 0 (buffer-size)) 730 (replace-regexp " \\.\\.." " " nil 0 (buffer-size))
729 (goto-char 0) 731 (goto-char 0)
730 (cd (hg-root path))) 732 (cd (hg-root path)))
731 (when update 733 (when update
734 (unless vc-make-backup-files
735 (set (make-local-variable 'backup-inhibited) t))
732 (with-current-buffer buf 736 (with-current-buffer buf
733 (hg-mode-line))))) 737 (hg-mode-line)))))
734 738
735 (defun hg-addremove () 739 (defun hg-addremove ()
736 (interactive) 740 (interactive)
966 (replace-regexp " \\.\\.." " " nil 0 (buffer-size)) 970 (replace-regexp " \\.\\.." " " nil 0 (buffer-size))
967 (goto-char 0) 971 (goto-char 0)
968 (cd (hg-root path))) 972 (cd (hg-root path)))
969 (when update 973 (when update
970 (with-current-buffer buf 974 (with-current-buffer buf
975 (set (make-local-variable 'backup-inhibited) nil)
971 (hg-mode-line))))) 976 (hg-mode-line)))))
972 977
973 (defun hg-incoming (&optional repo) 978 (defun hg-incoming (&optional repo)
974 "Display changesets present in REPO that are not present locally." 979 "Display changesets present in REPO that are not present locally."
975 (interactive (list (hg-read-repo-name " where changes would come from"))) 980 (interactive (list (hg-read-repo-name " where changes would come from")))