author | Bryan O'Sullivan <bos@serpentine.com> |
Tue, 22 Aug 2006 11:24:59 -0700 | |
changeset 2985 | e75fdc37100c |
parent 2984 | e1762867a734 |
child 2986 | b6e6d2a9c5bc |
--- 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).