# HG changeset patch
# User FUJIWARA Katsunori <foozy@lares.dti.ne.jp>
# Date 2006-06-16 15:06:28
# Node ID d1a7c8a5b835d71c4da7398e6858cd6f7bfe2a42
# Parent  134227b82a963ea0adc172c1ad169dc0bbfef53f

Emacs: use delete-region instead of kill-* functions.
This patch eliminates `kill-line' which taints kill-ring,
and `kill-entire-line' which is specific for XEmacs.

diff --git a/contrib/mercurial.el b/contrib/mercurial.el
--- a/contrib/mercurial.el
+++ b/contrib/mercurial.el
@@ -712,7 +712,8 @@ code by typing `M-x find-library mercuri
     (let ((pos (point)))
       (insert (documentation 'hg-mode))
       (goto-char pos)
-      (kill-line))))
+      (end-of-line 1)
+      (delete-region pos (point)))))
 
 (defun hg-add (path)
   "Add PATH to the Mercurial repository on the next commit.
@@ -959,8 +960,8 @@ With a prefix argument, prompt for the p
 (defun hg-log-mode ()
   "Mode for viewing a Mercurial change log."
   (goto-char (point-min))
-  (when (looking-at "^searching for changes")
-    (kill-entire-line))
+  (when (looking-at "^searching for changes.*$")
+    (delete-region (match-beginning 0) (match-end 0)))
   (run-hooks 'hg-log-mode-hook))
 
 (defun hg-log (path &optional rev1 rev2 log-limit)