Commit 529c9409 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(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.
parent d6db9101
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) 2003-12-29 Jesper Harder <harder@ifa.au.dk> (tiny change)
* generic-x.el (etc-modules-conf-generic-mode): A more complete * generic-x.el (etc-modules-conf-generic-mode): A more complete
......
...@@ -1563,7 +1563,18 @@ Replaces `category' properties with their defined properties." ...@@ -1563,7 +1563,18 @@ Replaces `category' properties with their defined properties."
(defvar yank-undo-function) (defvar yank-undo-function)
(defun insert-for-yank (string) (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. "Insert STRING at point, stripping some text properties.
Strip text properties from the inserted text according to Strip text properties from the inserted text according to
`yank-excluded-properties'. Otherwise just like (insert STRING). `yank-excluded-properties'. Otherwise just like (insert STRING).
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment