Mercurial Mercurial > hg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Adjust hg-strip and hg-chomp regexps.
authorjdc@uwo.ca
Wed, 31 Aug 2005 11:56:58 -0700
changeset 1178 a7abffa4b19f
parent 1177 862f53c1d0f9
child 1179 8acf62f579d8
Adjust hg-strip and hg-chomp regexps.
contrib/mercurial.el file | annotate | diff | comparison | revisions 
--- a/contrib/mercurial.el	Wed Aug 31 11:19:20 2005 -0700
+++ b/contrib/mercurial.el	Wed Aug 31 11:56:58 2005 -0700
@@ -283,13 +283,13 @@
     (replace-regexp-in-string regexp newtext str nil literal)))
 
 (defsubst hg-strip (str)
-  "Strip leading and trailing white space from a string."
-  (hg-replace-in-string (hg-replace-in-string str "[ \t\r\n]+$" "")
-			"^[ \t\r\n]+" ""))
+  "Strip leading and trailing blank lines from a string."
+  (hg-replace-in-string (hg-replace-in-string str "[\r\n][ \t\r\n]*\\'" "")
+			"\\`[ \t\r\n]*[\r\n]" ""))
 
 (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).
Mercurial