# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 854763554 0
# Node ID 9e1fac479bed53f7bb75cca496d2057402d2e6ff
# Parent  bfa27111d35b5358ab2bd161e1c5c5d9078835b3
(set-fill-column): Print the old value too.

diff -r bfa27111d35b -r 9e1fac479bed lisp/simple.el
--- a/lisp/simple.el	Sat Feb 01 01:39:11 1997 +0000
+++ b/lisp/simple.el	Sat Feb 01 02:19:14 1997 +0000
@@ -2494,13 +2494,14 @@
 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"))))
 
 (defvar comment-multi-line nil
   "*Non-nil means \\[indent-new-comment-line] should continue same comment