From 672bfdb9c91629f232435ca4a2157bb3e627df9d Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 11 Aug 2020 18:46:34 +0200 Subject: [PATCH] Slight cleanup in calc-yank * lisp/calc/calc-yank.el (calc-yank): Remove compat code. --- lisp/calc/calc-yank.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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 -- 2.39.5