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

[Juri Linkov]

branch: master
commit 597a49b2e2ef664cc99a7f1a1ecad7d22df096a1
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * 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 c9f4f2b..77888d0 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))