aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChong Yidong2006-10-15 19:13:44 +0000
committerChong Yidong2006-10-15 19:13:44 +0000
commit7e69f9042902d11c5a63c433b43952fe032d3ab9 (patch)
treefd6c7d85f16ffd36d7939dd2e8a12d0f7f4117e0
parentd0834a5ca044e97ae749a1517fa221cc977b0bd0 (diff)
downloademacs-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.el6
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 !!!!!