# HG changeset patch
# User Bryan O'Sullivan <bos@serpentine.com>
# Date 1156271099 25200
# Node ID e75fdc37100ce6af485f78e415749369ce7aeb08
# Parent  e1762867a7343d53744a9b97c4b3bcb4364f6489
mercurial.el: fix hg-chomp.

diff --git a/contrib/mercurial.el b/contrib/mercurial.el
--- a/contrib/mercurial.el
+++ b/contrib/mercurial.el
@@ -289,7 +289,7 @@ XEmacs and GNU Emacs."
 
 (defsubst hg-chomp (str)
   "Strip trailing newlines from a string."
-  (hg-replace-in-string str "[\r\n]+\'" ""))
+  (hg-replace-in-string str "[\r\n]+\\'" ""))
 
 (defun hg-run-command (command &rest args)
   "Run the shell command COMMAND, returning (EXIT-CODE . COMMAND-OUTPUT).