From dd51990ea158271595f7375a00fa5c9263d0bc7c Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 6 Jul 2024 11:28:39 +0300 Subject: [PATCH] ; Fix doc string of 'string-fill' * lisp/emacs-lisp/subr-x.el (string-fill): Rename LENGTH to WIDTH and update the doc string accordingly. (Bug#71856) (cherry picked from commit a3e57a29becdc028d5a5059c35b5f7be7c1510e4) --- lisp/emacs-lisp/subr-x.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el index e62a08b7a8b..e725c490aba 100644 --- a/lisp/emacs-lisp/subr-x.el +++ b/lisp/emacs-lisp/subr-x.el @@ -159,16 +159,16 @@ removed." blank blank))) ;;;###autoload -(defun string-fill (string length) - "Try to word-wrap STRING so that no lines are longer than LENGTH. -Wrapping is done where there is whitespace. If there are -individual words in STRING that are longer than LENGTH, the -result will have lines that are longer than LENGTH." +(defun string-fill (string width) + "Try to word-wrap STRING so that it displays with lines no wider than WIDTH. +STRING is wrapped where there is whitespace in it. If there are +individual words in STRING that are wider than WIDTH, the result +will have lines that are wider than WIDTH." (declare (important-return-value t)) (with-temp-buffer (insert string) (goto-char (point-min)) - (let ((fill-column length) + (let ((fill-column width) (adaptive-fill-mode nil)) (fill-region (point-min) (point-max))) (buffer-string))) -- 2.39.2