From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 19 May 1997 02:52:50 +0000 (+0000)
Subject: (set-fill-column): Make the C-u case work.
X-Git-Tag: emacs-20.1~2071
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f4520363fdc996388a9b3b6276b85793968d6c30;p=emacs.git

(set-fill-column): Make the C-u case work.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index e3489c7cf42..74280ab8f93 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2679,15 +2679,13 @@ for `auto-fill-function' when turning Auto Fill mode on."
   "Set `fill-column' to specified argument.
 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"))))
+  (if (consp arg)
+      (setq arg (current-column)))
+  (if (not (integerp arg))
+      ;; Disallow missing argument; it's probably a typo for C-x C-f.
+      (error "set-fill-column requires an explicit argument")
+    (message "Fill column set to %d (was %d)" arg fill-column)
+    (setq fill-column arg)))
 
 (defcustom comment-multi-line nil
   "*Non-nil means \\[indent-new-comment-line] should continue same comment