mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(insert-buffer-substring-no-properties): New function.

Browse source 
(insert-buffer-substring-as-yank): New function.
This commit is contained in:
Kim F. Storm 2002-04-21 17:00:41 +00:00
parent 6036654ee8
commit 3b8690f615
1 changed files with 25 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

25
lisp/subr.el
View file

@ -1287,6 +1287,31 @@ Otherwise just like (insert STRINGS...)."
(set-text-properties opoint (point) nil)
(remove-list-of-text-properties opoint (point)
yank-excluded-properties)))))
(defun insert-buffer-substring-no-properties (buf &optional start end)
"Insert before point a substring of buffer BUFFER, without text properties.
BUFFER may be a buffer or a buffer name.
Arguments START and END are character numbers specifying the substring.
They default to the beginning and the end of BUFFER."
(let ((opoint (point)))
(insert-buffer-substring buf start end)
(let ((inhibit-read-only t))
(set-text-properties opoint (point) nil))))
(defun insert-buffer-substring-as-yank (buf &optional start end)
"Insert before point a part of buffer BUFFER, stripping some text properties.
BUFFER may be a buffer or a buffer name. Arguments START and END are
character numbers specifying the substring. They default to the
beginning and the end of BUFFER. Strip text properties from the
inserted text according to `yank-excluded-properties'."
(let ((opoint (point)))
(insert-buffer-substring buf start end)
(let ((inhibit-read-only t))
(if (eq yank-excluded-properties t)
(set-text-properties opoint (point) nil)
(remove-list-of-text-properties opoint (point)
yank-excluded-properties)))))
;; Synchronous shell commands.