[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: string-strip

From: Andreas Roehler
Subject: Re: string-strip
Date: Fri, 29 Sep 2006 09:41:48 +0200
User-agent: Thunderbird (X11/20060516)

Lars Hansen schrieb:
Kim F. Storm wrote:

Looks good to me.

But I think examples belong in the manual, not in the doc string.
It seems that there are no more objections. Can I install?

*** /home/lh/cvsroot/emacs/lisp/subr.el 2006-06-13 12:37:24.000000000 +0200
--- subr.el     2006-06-28 13:44:50.916887229 +0200
*** 2615,2620 ****
--- 2615,2636 ----
  ;;;; Replacement in strings.
+ (defconst string-strip-default-white-space "[ \f\t\n\r\v]*"
+   "The default value of white-space for `string-strip'.
+ A regexp matching strings of white space.")
+ + (defun string-strip (string &optional white-space)
+   "Remove leading and trailing WHITE-SPACE from STRING.
+ If WHITE-SPACE is non-nil, it should be a regular expression matching white
+ space.  If nil it defaults to `string-strip-default-white-space', normally
+ \"[ \\f\\t\\n\\r\\v]*\"."
+   (let ((ws (or white-space string-strip-default-white-space)))
+     (save-match-data
+       (string-match
+        (concat "\\`\\(?:" ws "\\)\\(\\(?:.\\|\n\\)*?\\)\\(?:" ws "\\)\\'")
+        string)
+       (match-string 1 string))))
+ (defun subst-char-in-string (fromchar tochar string &optional inplace)
    "Replace FROMCHAR with TOCHAR in STRING each time it occurs.
  Unless optional argument INPLACE is non-nil, return a new string."

Conceive this as the result of the discussion.  Will it be installed?


Andreas Roehler

reply via email to

[Prev in Thread] Current Thread [Next in Thread]