diff options
| -rw-r--r-- | lisp/woman.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/woman.el b/lisp/woman.el index ed04ae4c83f..d25f60f58c1 100644 --- a/lisp/woman.el +++ b/lisp/woman.el | |||
| @@ -809,7 +809,7 @@ Only useful when run on a graphic display such as X or MS-Windows." | |||
| 809 | 809 | ||
| 810 | (defcustom woman-fill-frame nil | 810 | (defcustom woman-fill-frame nil |
| 811 | ;; Based loosely on a suggestion by Theodore Jump: | 811 | ;; Based loosely on a suggestion by Theodore Jump: |
| 812 | "*If non-nil then most of the frame width is used." | 812 | "*If non-nil then most of the window width is used." |
| 813 | :type 'boolean | 813 | :type 'boolean |
| 814 | :group 'woman-formatting) | 814 | :group 'woman-formatting) |
| 815 | 815 | ||
| @@ -2211,7 +2211,7 @@ Currently set only from '\" t in the first line of the source file.") | |||
| 2211 | ;; Based loosely on a suggestion by Theodore Jump: | 2211 | ;; Based loosely on a suggestion by Theodore Jump: |
| 2212 | (if (or woman-fill-frame | 2212 | (if (or woman-fill-frame |
| 2213 | (not (and (integerp woman-fill-column) (> woman-fill-column 0)))) | 2213 | (not (and (integerp woman-fill-column) (> woman-fill-column 0)))) |
| 2214 | (setq woman-fill-column (- (frame-width) woman-default-indent))) | 2214 | (setq woman-fill-column (- (window-width) woman-default-indent))) |
| 2215 | 2215 | ||
| 2216 | ;; Check for preprocessor requests: | 2216 | ;; Check for preprocessor requests: |
| 2217 | (goto-char from) | 2217 | (goto-char from) |