205 |
Interactively, WIDTH is the prefix argument, if specified. |
Interactively, WIDTH is the prefix argument, if specified. |
206 |
Without prefix argument, the command prompts for WIDTH." |
Without prefix argument, the command prompts for WIDTH." |
207 |
(interactive "r\nNSet left margin to column: ") |
(interactive "r\nNSet left margin to column: ") |
|
(if (interactive-p) (setq width (prefix-numeric-value width))) |
|
208 |
(save-excursion |
(save-excursion |
209 |
;; If inside indentation, start from BOL. |
;; If inside indentation, start from BOL. |
210 |
(goto-char from) |
(goto-char from) |
228 |
Interactively, WIDTH is the prefix argument, if specified. |
Interactively, WIDTH is the prefix argument, if specified. |
229 |
Without prefix argument, the command prompts for WIDTH." |
Without prefix argument, the command prompts for WIDTH." |
230 |
(interactive "r\nNSet right margin to width: ") |
(interactive "r\nNSet right margin to width: ") |
|
(if (interactive-p) (setq width (prefix-numeric-value width))) |
|
231 |
(save-excursion |
(save-excursion |
232 |
(goto-char from) |
(goto-char from) |
233 |
(skip-chars-backward " \t") |
(skip-chars-backward " \t") |
287 |
the right margin width. |
the right margin width. |
288 |
If `auto-fill-mode' is active, re-fill the region to fit the new margin." |
If `auto-fill-mode' is active, re-fill the region to fit the new margin." |
289 |
(interactive "r\nP") |
(interactive "r\nP") |
290 |
(if (interactive-p) |
(setq inc (if inc (prefix-numeric-value inc) standard-indent)) |
|
(setq inc (if inc (prefix-numeric-value current-prefix-arg) |
|
|
standard-indent))) |
|
291 |
(save-excursion |
(save-excursion |
292 |
(alter-text-property from to 'right-margin |
(alter-text-property from to 'right-margin |
293 |
(lambda (v) (+ inc (or v 0)))) |
(lambda (v) (+ inc (or v 0)))) |
294 |
(if auto-fill-function |
(if auto-fill-function |
295 |
(fill-region from to nil t t)))) |
(fill-region from to nil t t)))) |
296 |
|
|