mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases 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.