From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 11 Aug 2020 16:46:34 +0000 (+0200)
Subject: Slight cleanup in calc-yank
X-Git-Tag: emacs-28.0.90~6680
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=672bfdb9c91629f232435ca4a2157bb3e627df9d;p=emacs.git

Slight cleanup in calc-yank

* lisp/calc/calc-yank.el (calc-yank): Remove compat code.
---

diff --git a/lisp/calc/calc-yank.el b/lisp/calc/calc-yank.el
index b119f149801..690aaf2687f 100644
--- a/lisp/calc/calc-yank.el
+++ b/lisp/calc/calc-yank.el
@@ -244,9 +244,7 @@ If RADIX is nil or if the yanked string already has a calc radix prefix, the
 yanked string will be passed on directly to the Calculator buffer without any
 alteration."
   (interactive "P")
-  (calc-yank-internal radix (if (fboundp 'current-kill)
-                                (current-kill 0 t)
-                              (car kill-ring-yank-pointer))))
+  (calc-yank-internal radix (current-kill 0 t)))
 
 ;;; The Calc set- and get-register commands are modified versions of functions
 ;;; in register.el