1986 |
(setq this-command 'yank) |
(setq this-command 'yank) |
1987 |
(let ((inhibit-read-only t) |
(let ((inhibit-read-only t) |
1988 |
(before (< (point) (mark t)))) |
(before (< (point) (mark t)))) |
1989 |
(funcall (or yank-undo-function 'delete-region) (point) (mark t)) |
(if before |
1990 |
|
(funcall (or yank-undo-function 'delete-region) (point) (mark t)) |
1991 |
|
(funcall (or yank-undo-function 'delete-region) (mark t) (point))) |
1992 |
(setq yank-undo-function nil) |
(setq yank-undo-function nil) |
1993 |
(set-marker (mark-marker) (point) (current-buffer)) |
(set-marker (mark-marker) (point) (current-buffer)) |
1994 |
(insert-for-yank (current-kill arg)) |
(insert-for-yank (current-kill arg)) |