From: Antoine Levitt <antoine.levitt@gmail.com>
Date: Wed, 9 Feb 2022 09:53:19 +0000 (+0100)
Subject: Improve the set-fill-column prompt
X-Git-Tag: emacs-29.0.90~2409
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2f80d8058bada74ae67546e95c314066d697b7ba;p=emacs.git

Improve the set-fill-column prompt

* lisp/simple.el (set-fill-column): Improve the prompt (bug#53874).
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 3cf3024184b..af51c99b285 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -8303,7 +8303,8 @@ Just \\[universal-argument] as argument means to use the current column."
              ;; We used to use current-column silently, but C-x f is too easily
              ;; typed as a typo for C-x C-f, so we turned it into an error and
              ;; now an interactive prompt.
-             (read-number "Set fill-column to: " (current-column)))))
+             (read-number (format "Change fill-column from %s to: " fill-column)
+                          (current-column)))))
   (if (consp arg)
       (setq arg (current-column)))
   (if (not (integerp arg))