mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(increase-right-margin): Remove erroneous call to `interactive-p'.
This commit is contained in:
Luc Teirlinck 2004-10-24 21:01:20 +00:00
parent d1eb6c47fa
commit 6faab05fa2
2 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
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.

8
lisp/indent.el
View file

@ -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))))