Function: query-replace--split-string

query-replace--split-string is a byte-compiled function defined in replace.el.gz.

Signature

(query-replace--split-string STRING)

Documentation

Split string STRING at a substring with property separator.

Source Code

;; Defined in /usr/src/emacs/lisp/replace.el.gz
(defun query-replace--split-string (string)
  "Split string STRING at a substring with property `separator'."
  (let* ((length (length string))
         (split-pos (text-property-any 0 length 'separator t string)))
    (if (not split-pos)
        string
      (cons (substring string 0 split-pos)
            (substring-no-properties
             string (or (text-property-not-all
                         (1+ split-pos) length 'separator t string)
                        length)
             length)))))