diff options
| author | Chong Yidong | 2006-10-15 19:13:44 +0000 |
|---|---|---|
| committer | Chong Yidong | 2006-10-15 19:13:44 +0000 |
| commit | 7e69f9042902d11c5a63c433b43952fe032d3ab9 (patch) | |
| tree | fd6c7d85f16ffd36d7939dd2e8a12d0f7f4117e0 | |
| parent | d0834a5ca044e97ae749a1517fa221cc977b0bd0 (diff) | |
| download | emacs-7e69f9042902d11c5a63c433b43952fe032d3ab9.tar.gz emacs-7e69f9042902d11c5a63c433b43952fe032d3ab9.zip | |
* woman.el (woman2-format-paragraphs): Avoid infinite loop in case
there is no terminating newline.
| -rw-r--r-- | lisp/woman.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/woman.el b/lisp/woman.el index 13fa3147487..b25a93d86a8 100644 --- a/lisp/woman.el +++ b/lisp/woman.el | |||
| @@ -4121,7 +4121,11 @@ If `woman-nofill' is non-nil then indent without filling or adjusting." | |||
| 4121 | (eolp) | 4121 | (eolp) |
| 4122 | (skip-syntax-forward " ") | 4122 | (skip-syntax-forward " ") |
| 4123 | (setq woman-leave-blank-lines 1)) | 4123 | (setq woman-leave-blank-lines 1)) |
| 4124 | (beginning-of-line) | 4124 | ;; This shouldn't happen, but in case it does (e.g. for |
| 4125 | ;; badly-formatted manfiles with no terminating newline), | ||
| 4126 | ;; avoid an infinite loop. | ||
| 4127 | (unless (and (eolp) (eobp)) | ||
| 4128 | (beginning-of-line)) | ||
| 4125 | ;; If a single short line then just leave it. | 4129 | ;; If a single short line then just leave it. |
| 4126 | ;; This is necessary to preserve some table layouts. | 4130 | ;; This is necessary to preserve some table layouts. |
| 4127 | ;; PROBABLY NOT NECESSARY WITH SQUEEZE MODIFICATION !!!!! | 4131 | ;; PROBABLY NOT NECESSARY WITH SQUEEZE MODIFICATION !!!!! |