Commit 4cc0ea11 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(set-fill-column): Error if no argument.

parent 45c2639b
...@@ -2452,10 +2452,16 @@ automatically breaks the line at a previous space." ...@@ -2452,10 +2452,16 @@ automatically breaks the line at a previous space."
(auto-fill-mode 1)) (auto-fill-mode 1))
(defun set-fill-column (arg) (defun set-fill-column (arg)
"Set `fill-column' to current column, or to argument if given. "Set `fill-column' to specified argument.
The variable `fill-column' has a separate value for each buffer." Just \\[universal-argument] as argument means to use the current column."
(interactive "P") (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)) (message "fill-column set to %d" fill-column))
(defconst comment-multi-line nil (defconst comment-multi-line nil
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment