diff options
| author | Luc Teirlinck <[email protected]> | 2004-10-24 21:01:20 +0000 |
|---|---|---|
| committer | Luc Teirlinck <[email protected]> | 2004-10-24 21:01:20 +0000 |
| commit | 6faab05fa2df75c4423b2017a4ce7645f7a1170b (patch) | |
| tree | 58b797414fb14be559ef067493c6f880a26c35d9 /lisp | |
| parent | d1eb6c47fa00d7f3e5b13b2138555e581768df55 (diff) | |
(set-left-margin, set-right-margin): Delete redundant code.
(increase-right-margin): Remove erroneous call to `interactive-p'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/indent.el | 8 |
2 files changed, 8 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f613fda303..e99856fe5f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-10-24 Luc Teirlinck <[email protected]> + + * indent.el (set-left-margin, set-right-margin): Delete redundant + code. + (increase-right-margin): Remove erroneous call to `interactive-p'. + 2004-10-24 Kim F. Storm <[email protected]> * help.el (describe-mode): Fix 2004-10-13 change. diff --git a/lisp/indent.el b/lisp/indent.el index e1a9cae481..9713268f03 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)))) |