Mercurial > emacs
comparison lisp/indent.el @ 11281:10f9cf00c770
(set-right-margin): Fix prompt.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Apr 1995 23:44:31 +0000 |
| parents | e6bdaaa6ce1b |
| children | 0e9d2009e609 |
comparison
equal
deleted
inserted
replaced
| 11280:5146fba1f75d | 11281:10f9cf00c770 |
|---|---|
| 160 (move-marker to nil)) | 160 (move-marker to nil)) |
| 161 | 161 |
| 162 (defun set-right-margin (from to lm) | 162 (defun set-right-margin (from to lm) |
| 163 "Set the right margin of the region to WIDTH. | 163 "Set the right margin of the region to WIDTH. |
| 164 If `auto-fill-mode' is active, re-fill the region to fit the new margin." | 164 If `auto-fill-mode' is active, re-fill the region to fit the new margin." |
| 165 (interactive "r\nNSet left margin to column: ") | 165 (interactive "r\nNSet right margin to width: ") |
| 166 (if (interactive-p) (setq lm (prefix-numeric-value lm))) | 166 (if (interactive-p) (setq lm (prefix-numeric-value lm))) |
| 167 (save-excursion | 167 (save-excursion |
| 168 (goto-char from) | 168 (goto-char from) |
| 169 (skip-chars-backward " \t") | 169 (skip-chars-backward " \t") |
| 170 (if (bolp) (setq from (point)))) | 170 (if (bolp) (setq from (point)))) |