Mercurial > emacs
diff lisp/subr.el @ 73415:56ea5a847db0
(insert-for-yank-1): If last inserted char has properties,
mark them as rear-nonsticky.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 18 Oct 2006 10:56:46 +0000 |
parents | d62e39d56ebb |
children | 03050ee24abc 58cf725f5330 |
line wrap: on
line diff
--- a/lisp/subr.el Wed Oct 18 10:55:32 2006 +0000 +++ b/lisp/subr.el Wed Oct 18 10:56:46 2006 +0000 @@ -2195,6 +2195,12 @@ (unless (nth 2 handler) ;; NOEXCLUDE (remove-yank-excluded-properties opoint (point))) + + ;; If last inserted char has properties, mark them as rear-nonsticky. + (if (and (> end opoint) + (text-properties-at (1- end))) + (put-text-property (1- end) end 'rear-nonsticky t)) + (if (eq yank-undo-function t) ;; not set by FUNCTION (setq yank-undo-function (nth 3 handler))) ;; UNDO (if (nth 4 handler) ;; COMMAND