900 |
(set-justification b e 'left t)) |
(set-justification b e 'left t)) |
901 |
|
|
902 |
(defun set-justification-right (b e) |
(defun set-justification-right (b e) |
903 |
"Make paragraphs in the region right-justified: |
"Make paragraphs in the region right-justified. |
904 |
Flush at the right margin and ragged on the left. |
Flush at the right margin and ragged on the left. |
905 |
If the mark is not active, this applies to the current paragraph." |
If the mark is not active, this applies to the current paragraph." |
906 |
(interactive (list (if mark-active (region-beginning) (point)) |
(interactive (list (if mark-active (region-beginning) (point)) |
908 |
(set-justification b e 'right t)) |
(set-justification b e 'right t)) |
909 |
|
|
910 |
(defun set-justification-full (b e) |
(defun set-justification-full (b e) |
911 |
"Make paragraphs in the region fully justified: |
"Make paragraphs in the region fully justified. |
912 |
This makes lines flush on both margins by inserting spaces between words. |
This makes lines flush on both margins by inserting spaces between words. |
913 |
If the mark is not active, this applies to the current paragraph." |
If the mark is not active, this applies to the current paragraph." |
914 |
(interactive (list (if mark-active (region-beginning) (point)) |
(interactive (list (if mark-active (region-beginning) (point)) |