(set-fill-column): Print the old value too.

diff --git a/lisp/simple.el b/lisp/simple.el
index 3ab47f443cb8fa4cd819217cdec377b374b27840..e12c520e5ca3741e9b5032ac6c059c8249fda3d1 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2494,13 +2494,14 @@ for `auto-fill-function' when turning Auto Fill mode on."
 Just \\[universal-argument] as argument means to use the current column."
   (interactive "P")
   (cond ((integerp arg)
+        (message "Fill column set to %d (was %d)" arg fill-column)
         (setq fill-column arg))
        ((consp arg)
+        (message "Fill column set to %d (was %d)" arg fill-column)
         (setq fill-column (current-column)))
        ;; Disallow missing argument; it's probably a typo for C-x C-f.
        (t
-        (error "set-fill-column requires an explicit argument")))
-  (message "fill-column set to %d" fill-column))
+        (error "set-fill-column requires an explicit argument"))))
 \f
 (defvar comment-multi-line nil
   "*Non-nil means \\[indent-new-comment-line] should continue same comment