mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1996-06-14 02:11:11 +00:00
parent 45c2639bdf
commit 4cc0ea1175
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/simple.el
View File

@ -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