Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4cc0ea11
Commit
4cc0ea11
authored
Jun 14, 1996
by
Richard M. Stallman
Browse files
(set-fill-column): Error if no argument.
parent
45c2639b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
3 deletions
+9
-3
lisp/simple.el
lisp/simple.el
+9
-3
No files found.
lisp/simple.el
View file @
4cc0ea11
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment