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>
* 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.
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,9 +287,7 @@ 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))))
......
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