From 4cc0ea11758b2b5c18dfffe9e46e420cfb2f4e2c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 14 Jun 1996 02:11:11 +0000 Subject: [PATCH] (set-fill-column): Error if no argument. --- lisp/simple.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 4ef1745ae3d..11dd51da17d 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2452,10 +2452,16 @@ automatically breaks the line at a previous space." (auto-fill-mode 1)) (defun set-fill-column (arg) - "Set `fill-column' to current column, or to argument if given. -The variable `fill-column' has a separate value for each buffer." + "Set `fill-column' to specified argument. +Just \\[universal-argument] as argument means to use the current column." (interactive "P") - (setq fill-column (if (integerp arg) arg (current-column))) + (cond ((integerp arg) + (setq fill-column arg)) + ((consp arg) + (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)) (defconst comment-multi-line nil -- 2.39.5