comparison lisp/subr.el @ 44158:8bfb4deffa5f

(substring-no-properties): Function deleted (now in C).

44157:1965fb963598

	'((save-match-data-internal (match-data)))
	(list 'unwind-protect
	      (cons 'progn body)
	      '(set-match-data save-match-data-internal))))

(defun substring-no-properties (string &optional from to)
  "Return a substring of STRING, with no text properties.
The substring starts at index FROM and ends before TO.
If FROM is nil or omitted, it defaults to the beginning of STRING.
If TO is nil or omitted, it defaults to the end of STRING.
If FROM or TO is negative, it counts from the end.

Simply (substring-no-properties STRING) copies a string without
its properties."
  (let ((str (substring string (or from 0) to)))
    (set-text-properties 0 (length str) nil str)
    str))

(defun match-string (num &optional string)
  "Return string of text matched by last search.
NUM specifies which parenthesized expression in the last regexp.
 Value is nil if NUMth pair didn't match, or there were less than NUM pairs.
Zero means the entire text matched by the whole regexp or whole string.

44158:8bfb4deffa5f

	'((save-match-data-internal (match-data)))
	(list 'unwind-protect
	      (cons 'progn body)
	      '(set-match-data save-match-data-internal))))

(defun match-string (num &optional string)
  "Return string of text matched by last search.
NUM specifies which parenthesized expression in the last regexp.
 Value is nil if NUMth pair didn't match, or there were less than NUM pairs.
Zero means the entire text matched by the whole regexp or whole string.