From: Juri Linkov <juri@linkov.net>
Date: Fri, 27 Nov 2020 09:00:43 +0000 (+0200)
Subject: * lisp/simple.el (read-from-kill-ring): Use frame-text-cols, not frame-width.
X-Git-Tag: emacs-28.0.90~5012
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=597a49b2e2ef664cc99a7f1a1ecad7d22df096a1;p=emacs.git

* lisp/simple.el (read-from-kill-ring): Use frame-text-cols, not frame-width.
---

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))