procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(insert-for-yank): Call insert-for-yank-1 repetitively

Browse source 
for each yank-handler segment.
(insert-for-yank-1): New function, with the body of the previous
insert-for-yank.
This commit is contained in:
Eli Zaretskii 2003-12-29 11:40:49 +00:00
parent d6db910183
commit 529c94091f
2 changed files with 22 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/ChangeLog
View file

@ -1,3 +1,14 @@
2003-12-29 Takaaki Ota <Takaaki.Ota@am.sony.com>
* subr.el (insert-for-yank): Call insert-for-yank-1 repetitively
for each yank-handler segment.
(insert-for-yank-1): New function, with the body of the previous
insert-for-yank.
* textmodes/table.el (table-yank-handler): New defcustom.
(table--put-cell-indicator-property): Put yank-handler property
that indicates the yank handler for the table cell.
2003-12-29 Jesper Harder <harder@ifa.au.dk> (tiny change)
* generic-x.el (etc-modules-conf-generic-mode): A more complete

11
lisp/subr.el
View file

@ -1563,7 +1563,18 @@ Replaces `category' properties with their defined properties."
(defvar yank-undo-function)
(defun insert-for-yank (string)
"Calls `insert-for-yank-1' repetitively for each `yank-handler' segment.
See `insert-for-yank-1' for more details."
(let (to)
(while (setq to (next-single-property-change 0 'yank-handler string))
(insert-for-yank-1 (substring string 0 to))
(setq string (substring string to))))
(insert-for-yank-1 string))
(defun insert-for-yank-1 (string)
"Insert STRING at point, stripping some text properties.
Strip text properties from the inserted text according to
`yank-excluded-properties'. Otherwise just like (insert STRING).