diff options
| author | Kevin Ryde | 2012-07-07 18:10:47 +0800 |
|---|---|---|
| committer | Chong Yidong | 2012-07-07 18:10:47 +0800 |
| commit | 87a92845e76bbf47a94fe7900313ace2979d5ec3 (patch) | |
| tree | 3174c963d5df7c65300d78a27d51cf35cda025e5 | |
| parent | f0ecdfeaae605c0dfa115925a38f285641a69230 (diff) | |
| download | emacs-87a92845e76bbf47a94fe7900313ace2979d5ec3.tar.gz emacs-87a92845e76bbf47a94fe7900313ace2979d5ec3.zip | |
* woman.el (woman2-process-escapes): Handle nofill regions.
Fixes: debbugs:11591
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/woman.el | 4 |
2 files changed, 5 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1dc857d134a..63a050fbcf5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,8 +1,9 @@ | |||
| 1 | 2012-07-07 Kevin Ryde <user42@zip.com.au> | 1 | 2012-07-07 Kevin Ryde <user42@zip.com.au> |
| 2 | 2 | ||
| 3 | * woman.el (woman-strings): Fix double-quote handling (Bug#1151). | 3 | * woman.el (woman-strings): Fix double-quote handling (Bug#1151). |
| 4 | (woman-decode-region): Replace escaped-escapes without destroying | 4 | (woman-decode-region): Replace escaped-escapes without destroying |
| 5 | bold or underline (Bug#11552). | 5 | bold or underline (Bug#11552). |
| 6 | (woman2-process-escapes): Handle nofill regions (Bug#11591). | ||
| 6 | 7 | ||
| 7 | 2012-07-07 Chong Yidong <cyd@gnu.org> | 8 | 2012-07-07 Chong Yidong <cyd@gnu.org> |
| 8 | 9 | ||
diff --git a/lisp/woman.el b/lisp/woman.el index 4767b062335..32aee3baff8 100644 --- a/lisp/woman.el +++ b/lisp/woman.el | |||
| @@ -3932,7 +3932,9 @@ Optional argument NUMERIC, if non-nil, means the argument is numeric." | |||
| 3932 | (while (re-search-forward "\\\\[&|^]" to t) | 3932 | (while (re-search-forward "\\\\[&|^]" to t) |
| 3933 | (woman-delete-match 0) | 3933 | (woman-delete-match 0) |
| 3934 | ;; If on a line by itself, consume newline as well (Bug#3651). | 3934 | ;; If on a line by itself, consume newline as well (Bug#3651). |
| 3935 | (and (eq (char-before (match-beginning 0)) ?\n) | 3935 | ;; But not in a .nf region, preserve all newlines in that case. |
| 3936 | (and (not woman-nofill) | ||
| 3937 | (eq (char-before (match-beginning 0)) ?\n) | ||
| 3936 | (eq (char-after (match-beginning 0)) ?\n) | 3938 | (eq (char-after (match-beginning 0)) ?\n) |
| 3937 | (delete-char 1))) | 3939 | (delete-char 1))) |
| 3938 | 3940 | ||