mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

(set-fill-column): Print the old value too.

Browse source
This commit is contained in:
Richard M. Stallman 1997-02-01 02:19:14 +00:00
parent 1b65c68491
commit cc39c00a02
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/simple.el
View file

@ -2494,13 +2494,14 @@ for `auto-fill-function' when turning Auto Fill mode on."
Just \\[universal-argument] as argument means to use the current column." Just \\[universal-argument] as argument means to use the current column."
(interactive "P") (interactive "P")
(cond ((integerp arg) (cond ((integerp arg)
(message "Fill column set to %d (was %d)" arg fill-column)
(setq fill-column arg)) (setq fill-column arg))
((consp arg) ((consp arg)
(message "Fill column set to %d (was %d)" arg fill-column)
(setq fill-column (current-column))) (setq fill-column (current-column)))
;; Disallow missing argument; it's probably a typo for C-x C-f. ;; Disallow missing argument; it's probably a typo for C-x C-f.
(t (t
(error "set-fill-column requires an explicit argument"))) (error "set-fill-column requires an explicit argument"))))
(message "fill-column set to %d" fill-column))
(defvar comment-multi-line nil (defvar comment-multi-line nil
"*Non-nil means \\[indent-new-comment-line] should continue same comment "*Non-nil means \\[indent-new-comment-line] should continue same comment