Commit 6faab05f authored by Luc Teirlinck's avatar Luc Teirlinck
Browse files

(set-left-margin, set-right-margin): Delete redundant code.

(increase-right-margin): Remove erroneous call to `interactive-p'.
parent d1eb6c47
2004-10-24 Luc Teirlinck <teirllm@auburn.edu>
* 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 <storm@cua.dk> 2004-10-24 Kim F. Storm <storm@cua.dk>
* help.el (describe-mode): Fix 2004-10-13 change. * help.el (describe-mode): Fix 2004-10-13 change.
......
...@@ -205,7 +205,6 @@ If `auto-fill-mode' is active, re-fill the region to fit the new margin. ...@@ -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. Interactively, WIDTH is the prefix argument, if specified.
Without prefix argument, the command prompts for WIDTH." Without prefix argument, the command prompts for WIDTH."
(interactive "r\nNSet left margin to column: ") (interactive "r\nNSet left margin to column: ")
(if (interactive-p) (setq width (prefix-numeric-value width)))
(save-excursion (save-excursion
;; If inside indentation, start from BOL. ;; If inside indentation, start from BOL.
(goto-char from) (goto-char from)
...@@ -229,7 +228,6 @@ If `auto-fill-mode' is active, re-fill the region to fit the new margin. ...@@ -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. Interactively, WIDTH is the prefix argument, if specified.
Without prefix argument, the command prompts for WIDTH." Without prefix argument, the command prompts for WIDTH."
(interactive "r\nNSet right margin to width: ") (interactive "r\nNSet right margin to width: ")
(if (interactive-p) (setq width (prefix-numeric-value width)))
(save-excursion (save-excursion
(goto-char from) (goto-char from)
(skip-chars-backward " \t") (skip-chars-backward " \t")
...@@ -289,12 +287,10 @@ to change the margin by, in characters. A negative argument decreases ...@@ -289,12 +287,10 @@ to change the margin by, in characters. A negative argument decreases
the right margin width. the right margin width.
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."
(interactive "r\nP") (interactive "r\nP")
(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)))
(save-excursion (save-excursion
(alter-text-property from to 'right-margin (alter-text-property from to 'right-margin
(lambda (v) (+ inc (or v 0)))) (lambda (v) (+ inc (or v 0))))
(if auto-fill-function (if auto-fill-function
(fill-region from to nil t t)))) (fill-region from to nil t t))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment