diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2004-10-24 21:01:20 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2004-10-24 21:01:20 +0000 |
| commit | 6faab05fa2df75c4423b2017a4ce7645f7a1170b (patch) | |
| tree | 58b797414fb14be559ef067493c6f880a26c35d9 /lisp/indent.el | |
| parent | d1eb6c47fa00d7f3e5b13b2138555e581768df55 (diff) | |
| download | emacs-6faab05fa2df75c4423b2017a4ce7645f7a1170b.tar.gz emacs-6faab05fa2df75c4423b2017a4ce7645f7a1170b.tar.bz2 emacs-6faab05fa2df75c4423b2017a4ce7645f7a1170b.zip | |
(set-left-margin, set-right-margin): Delete redundant code.
(increase-right-margin): Remove erroneous call to `interactive-p'.
Diffstat (limited to 'lisp/indent.el')
| -rw-r--r-- | lisp/indent.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/indent.el b/lisp/indent.el index e1a9cae4819..9713268f03b 100644 --- a/lisp/indent.el +++ b/lisp/indent.el @@ -205,7 +205,6 @@ If `auto-fill-mode' is active, re-fill the region to fit the new margin. 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 @@ If `auto-fill-mode' is active, re-fill the region to fit the new margin. 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 @@ to change the margin by, in characters. A negative argument decreases 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)))) |