Mercurial > emacs

comparison lisp/simple.el @ 17874:86e95716af6d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 40a43a90976f
children 0d96c759902b
comparison
equal deleted inserted replaced
17873:f5778138efc7 17874:86e95716af6d
2677 2677
2678 (defun set-fill-column (arg) 2678 (defun set-fill-column (arg)
2679 "Set `fill-column' to specified argument. 2679 "Set `fill-column' to specified argument.
2680 Just \\[universal-argument] as argument means to use the current column." 2680 Just \\[universal-argument] as argument means to use the current column."
2681 (interactive "P") 2681 (interactive "P")
2682 (cond ((integerp arg) 2682 (if (consp arg)
2683 (message "Fill column set to %d (was %d)" arg fill-column) 2683 (setq arg (current-column)))
2684 (setq fill-column arg)) 2684 (if (not (integerp arg))
2685 ((consp arg) 2685 ;; Disallow missing argument; it's probably a typo for C-x C-f.
2686 (message "Fill column set to %d (was %d)" arg fill-column) 2686 (error "set-fill-column requires an explicit argument")
2687 (setq fill-column (current-column))) 2687 (message "Fill column set to %d (was %d)" arg fill-column)
2688 ;; Disallow missing argument; it's probably a typo for C-x C-f. 2688 (setq fill-column arg)))
2689 (t
2690 (error "set-fill-column requires an explicit argument"))))
2691 2689
2692 (defcustom comment-multi-line nil 2690 (defcustom comment-multi-line nil
2693 "*Non-nil means \\[indent-new-comment-line] should continue same comment 2691 "*Non-nil means \\[indent-new-comment-line] should continue same comment
2694 on new line, with no new terminator or starter. 2692 on new line, with no new terminator or starter.
2695 This is obsolete because you might as well use \\[newline-and-indent]." 2693 This is obsolete because you might as well use \\[newline-and-indent]."