Mercurial > emacs
changeset 57676:94dfa49e7a83
(set-left-margin, set-right-margin): Delete redundant code.
(increase-right-margin): Remove erroneous call to `interactive-p'.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Sun, 24 Oct 2004 20:58:43 +0000 |
| parents | 5ee6ba47682f |
| children | 04c673ad566a |
| files | lisp/indent.el |
| diffstat | 1 files changed, 2 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/indent.el Sun Oct 24 20:35:12 2004 +0000 +++ b/lisp/indent.el Sun Oct 24 20:58:43 2004 +0000 @@ -205,7 +205,6 @@ Interactively, WIDTH is the prefix argument, if specified. Without prefix argument, the command prompts for WIDTH." (interactive "r\nNSet left margin to column: ") - (if (interactive-p) (setq width (prefix-numeric-value width))) (save-excursion ;; If inside indentation, start from BOL. (goto-char from) @@ -229,7 +228,6 @@ Interactively, WIDTH is the prefix argument, if specified. Without prefix argument, the command prompts for WIDTH." (interactive "r\nNSet right margin to width: ") - (if (interactive-p) (setq width (prefix-numeric-value width))) (save-excursion (goto-char from) (skip-chars-backward " \t") @@ -289,12 +287,10 @@ the right margin width. If `auto-fill-mode' is active, re-fill the region to fit the new margin." (interactive "r\nP") - (if (interactive-p) - (setq inc (if inc (prefix-numeric-value current-prefix-arg) - standard-indent))) + (setq inc (if inc (prefix-numeric-value inc) standard-indent)) (save-excursion (alter-text-property from to 'right-margin - (lambda (v) (+ inc (or v 0)))) + (lambda (v) (+ inc (or v 0)))) (if auto-fill-function (fill-region from to nil t t))))