From 597a49b2e2ef664cc99a7f1a1ecad7d22df096a1 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Fri, 27 Nov 2020 11:00:43 +0200 Subject: [PATCH] * lisp/simple.el (read-from-kill-ring): Use frame-text-cols, not frame-width. --- lisp/simple.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/simple.el b/lisp/simple.el index c9f4f2bb445..77888d07f1e 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -5478,7 +5478,7 @@ With ARG, rotate that many kills forward (or backward, if negative)." (mapcar (lambda (s) (let* ((s (query-replace-descr s)) (b 0) - (limit (frame-width))) + (limit (frame-text-cols))) ;; Add ellipsis on leading whitespace (when (string-match "\\`[[:space:]]+" s) (setq b (match-end 0)) -- 2.39.5