Mercurial > hg-stable
comparison contrib/mercurial.el @ 2667:92ba858ed640
Emacs: apply kill-local-variable instead of make-local-variable to FORGET
| author | FUJIWARA Katsunori <foozy@lares.dti.ne.jp> |
|---|---|
| date | Sat, 22 Jul 2006 23:30:19 +0900 |
| parents | d78ae783499d |
| children | 7a32b7e6c563 |
comparison
equal
deleted
inserted
replaced
| 2666:ebf033bc8eb2 | 2667:92ba858ed640 |
|---|---|
| 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"))) |