aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKevin Ryde2012-07-07 18:10:47 +0800
committerChong Yidong2012-07-07 18:10:47 +0800
commit87a92845e76bbf47a94fe7900313ace2979d5ec3 (patch)
tree3174c963d5df7c65300d78a27d51cf35cda025e5
parentf0ecdfeaae605c0dfa115925a38f285641a69230 (diff)
downloademacs-87a92845e76bbf47a94fe7900313ace2979d5ec3.tar.gz
emacs-87a92845e76bbf47a94fe7900313ace2979d5ec3.zip
* woman.el (woman2-process-escapes): Handle nofill regions.
Fixes: debbugs:11591
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/woman.el4
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 @@
12012-07-07 Kevin Ryde <user42@zip.com.au> 12012-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
72012-07-07 Chong Yidong <cyd@gnu.org> 82012-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