summaryrefslogtreecommitdiff
path: root/lisp/sun-fns.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/sun-fns.el')
-rw-r--r--lisp/sun-fns.el3
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/sun-fns.el b/lisp/sun-fns.el
index 00fbcc4715a..95ed1ed50b3 100644
--- a/lisp/sun-fns.el
+++ b/lisp/sun-fns.el
@@ -231,8 +231,7 @@ See mouse-mark-thing for a description of the objects recognized."
(if (eq last-command 'yank)
(let ((before (< (point) (mark))))
(delete-region (point) (mark))
- (rotate-yank-pointer 1)
- (insert (car kill-ring-yank-pointer))
+ (insert (current-kill 1))
(if before (exchange-point-and-mark)))
(yank))
(setq this-command 'yank))