string-strip

[Andreas Roehler]

Looks great. Thanks.

Here with this example included:

(defun string-strip (str)
 "Return a copy of STR with leading and trailing white space removed.

\(string-strip \" foo \")      => \"foo\"
\(string-strip \" \\nfoo\\n \")  => \"foo\"
\(string-strip \" foo\\nbar \") => \"foo\\nbar\"
\(string-strip \" \")          => \"\"
\(string-strip \" \\n \")       => \"\"
"
 (save-match-data
   (string-match
"\\`[[:space:]\n]*\\(\\(?:.\\|\n\\)*?\\)[[:space:]\n]*\\'" str)
   (match-string 1 str)))