Show More
@@ -712,7 +712,8 b' code by typing `M-x find-library mercuri' | |||||
712 | (let ((pos (point))) |
|
712 | (let ((pos (point))) | |
713 | (insert (documentation 'hg-mode)) |
|
713 | (insert (documentation 'hg-mode)) | |
714 | (goto-char pos) |
|
714 | (goto-char pos) | |
715 |
( |
|
715 | (end-of-line 1) | |
|
716 | (delete-region pos (point))))) | |||
716 |
|
717 | |||
717 | (defun hg-add (path) |
|
718 | (defun hg-add (path) | |
718 | "Add PATH to the Mercurial repository on the next commit. |
|
719 | "Add PATH to the Mercurial repository on the next commit. | |
@@ -959,8 +960,8 b' With a prefix argument, prompt for the p' | |||||
959 | (defun hg-log-mode () |
|
960 | (defun hg-log-mode () | |
960 | "Mode for viewing a Mercurial change log." |
|
961 | "Mode for viewing a Mercurial change log." | |
961 | (goto-char (point-min)) |
|
962 | (goto-char (point-min)) | |
962 | (when (looking-at "^searching for changes") |
|
963 | (when (looking-at "^searching for changes.*$") | |
963 | (kill-entire-line)) |
|
964 | (delete-region (match-beginning 0) (match-end 0))) | |
964 | (run-hooks 'hg-log-mode-hook)) |
|
965 | (run-hooks 'hg-log-mode-hook)) | |
965 |
|
966 | |||
966 | (defun hg-log (path &optional rev1 rev2 log-limit) |
|
967 | (defun hg-log (path &optional rev1 rev2 log-limit) |
General Comments 0
You need to be logged in to leave comments.
Login now