##// END OF EJS Templates
Emacs: use delete-region instead of kill-* functions....
FUJIWARA Katsunori -
r2452:d1a7c8a5 default
parent child Browse files
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 (kill-line))))
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