Mercurial > emacs

changeset 23993:d90d3da56713

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fill-region-as-paragraph): While deleting a newline in multibyte buffer, if previous or next character is a composite char, check the first component of the composite char.
author Kenichi Handa <handa@m17n.org>
date Tue, 05 Jan 1999 02:39:31 +0000
parents 81b2d3ea98ed
children 9ae5e1af3518
files lisp/textmodes/fill.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/fill.el	Tue Jan 05 02:38:37 1999 +0000
+++ b/lisp/textmodes/fill.el	Tue Jan 05 02:39:31 1999 +0000
@@ -434,6 +434,10 @@
 	      (while (search-forward "\n" nil t)
 		(let ((prev (char-before (match-beginning 0)))
 		      (next (following-char)))
+		  (if (cmpcharp prev)
+		      (setq prev (composite-char-component prev 0)))
+		  (if (cmpcharp next)
+		      (setq next (composite-char-component next 0)))
 		  (if (and (or (aref (char-category-set next) ?|)
 			       (aref (char-category-set prev) ?|))
 			   (or (get-charset-property (char-charset prev)