diff options
| author | Juri Linkov | 2020-11-27 11:00:43 +0200 |
|---|---|---|
| committer | Juri Linkov | 2020-11-27 11:00:43 +0200 |
| commit | 597a49b2e2ef664cc99a7f1a1ecad7d22df096a1 (patch) | |
| tree | 260ee7c8689861044bc3e5c6ce79e312a8dbc5cf | |
| parent | 2dd1c2d4ba4ecbb7ac6d6e3f5de8ccb8d1d11c4f (diff) | |
| download | emacs-597a49b2e2ef664cc99a7f1a1ecad7d22df096a1.tar.gz emacs-597a49b2e2ef664cc99a7f1a1ecad7d22df096a1.zip | |
* lisp/simple.el (read-from-kill-ring): Use frame-text-cols, not frame-width.
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)." | |||
| 5478 | (mapcar (lambda (s) | 5478 | (mapcar (lambda (s) |
| 5479 | (let* ((s (query-replace-descr s)) | 5479 | (let* ((s (query-replace-descr s)) |
| 5480 | (b 0) | 5480 | (b 0) |
| 5481 | (limit (frame-width))) | 5481 | (limit (frame-text-cols))) |
| 5482 | ;; Add ellipsis on leading whitespace | 5482 | ;; Add ellipsis on leading whitespace |
| 5483 | (when (string-match "\\`[[:space:]]+" s) | 5483 | (when (string-match "\\`[[:space:]]+" s) |
| 5484 | (setq b (match-end 0)) | 5484 | (setq b (match-end 0)) |