Mercurial > emacs
changeset 17874:86e95716af6d
(set-fill-column): Make the C-u case work.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 19 May 1997 02:52:50 +0000 |
| parents | f5778138efc7 |
| children | 66e8848c9c49 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 7 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Mon May 19 02:45:30 1997 +0000 +++ b/lisp/simple.el Mon May 19 02:52:50 1997 +0000 @@ -2679,15 +2679,13 @@ "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