Re: [Emacs-diffs] master c5e89be: On C-y, stop some text property entries being written into buffer-undo-list

[Stefan Monnier <monnier@IRO.UMontreal.CA>]

> +  (with-silent-modifications
> +    (let ((inhibit-read-only t))
> +      (dolist (handler yank-handled-properties)
> +	(let ((prop (car handler))
> +	      (fun  (cdr handler))
> +	      (run-start start))
> +	  (while (< run-start end)
> +	    (let ((value (get-text-property run-start prop))
> +		  (run-end (next-single-property-change
> +			    run-start prop nil end)))
> +	      (funcall fun value run-start run-end)

Running the hook functions within with-silent-modifications sounds
dangerous since they may make modifications which shouldn't be ignored
(only the hooks can know).

> +      (if (eq yank-excluded-properties t)
> +	  (set-text-properties start end nil)
> +	(remove-list-of-text-properties start end yank-excluded-properties)))))
 
This is the part that needs to be wrapped.


        Stefan