Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 03:17:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(copy-without-properties): New function.

Browse source
This commit is contained in:
Richard M. Stallman 2002-01-23 17:46:44 +00:00
parent 8b06876c04
commit c5802acf35
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/subr.el
View file

@ -1080,7 +1080,7 @@ Overlays might be moved and or split."
(if (> (overlay-end o) end)
(move-overlay o end (overlay-end o))
(delete-overlay o)))))))
;;;; Miscellanea.
;; A number of major modes set this locally.
@ -1362,6 +1362,12 @@ Value is what BODY returns."
(cons 'progn body)
'(set-match-data save-match-data-internal))))
(defun copy-without-properties (string)
"Return a copy of STRING with no text properties."
(setq string (concat string))
(set-text-properties 0 (length string) nil string)
string)
(defun match-string (num &optional string)
"Return string of text matched by last search.
NUM specifies which parenthesized expression in the last regexp.