[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/fill.el |
Date: |
Thu, 06 Dec 2001 22:34:59 -0500 |
Index: emacs/lisp/textmodes/fill.el
diff -c emacs/lisp/textmodes/fill.el:1.137 emacs/lisp/textmodes/fill.el:1.138
*** emacs/lisp/textmodes/fill.el:1.137 Mon Dec 3 01:11:37 2001
--- emacs/lisp/textmodes/fill.el Thu Dec 6 22:34:59 2001
***************
*** 841,853 ****
nil
j)))
! (defun set-justification (begin end value &optional whole-par)
! "Set the region's justification style.
! The kind of justification to use is prompted for.
If the mark is not active, this command operates on the current paragraph.
! If the mark is active, the region is used. However, if the beginning and end
! of the region are not at paragraph breaks, they are moved to the beginning and
! end of the paragraphs they are in.
If `use-hard-newlines' is true, all hard newlines are taken to be paragraph
breaks.
--- 841,855 ----
nil
j)))
! (defun set-justification (begin end style &optional whole-par)
! "Set the region's justification style to STYLE.
! This commands prompts for the kind of justification to use.
If the mark is not active, this command operates on the current paragraph.
! If the mark is active, it operates on the region. However, if the
! beginning and end of the region are not at paragraph breaks, they are
! moved to the beginning and end \(respectively) of the paragraphs they
! are in.
!
If `use-hard-newlines' is true, all hard newlines are taken to be paragraph
breaks.
***************
*** 881,887 ****
(narrow-to-region (point-min) end)
(unjustify-region begin (point-max))
! (put-text-property begin (point-max) 'justification value)
(fill-region begin (point-max) nil t))))
(defun set-justification-none (b e)
--- 883,889 ----
(narrow-to-region (point-min) end)
(unjustify-region begin (point-max))
! (put-text-property begin (point-max) 'justification style)
(fill-region begin (point-max) nil t))))
(defun set-justification-none (b e)
***************
*** 893,898 ****
--- 895,901 ----
(defun set-justification-left (b e)
"Make paragraphs in the region left-justified.
+ This means they are flush at the left margin and ragged on the right.
This is usually the default, but see the variable `default-justification'.
If the mark is not active, this applies to the current paragraph."
(interactive (list (if mark-active (region-beginning) (point))
***************
*** 901,907 ****
(defun set-justification-right (b e)
"Make paragraphs in the region right-justified.
! Flush at the right margin and ragged on the left.
If the mark is not active, this applies to the current paragraph."
(interactive (list (if mark-active (region-beginning) (point))
(if mark-active (region-end) (point))))
--- 904,910 ----
(defun set-justification-right (b e)
"Make paragraphs in the region right-justified.
! This means they are flush at the right margin and ragged on the left.
If the mark is not active, this applies to the current paragraph."
(interactive (list (if mark-active (region-beginning) (point))
(if mark-active (region-end) (point))))