From: Kenichi Handa Date: Tue, 5 Jan 1999 02:39:31 +0000 (+0000) Subject: (fill-region-as-paragraph): While deleting a X-Git-Tag: emacs-20.4~956 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=971c2d04d2c337195c15002b48deafdb084d89fe;p=emacs.git (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. --- diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index a563cb52d72..14f7e23d4c0 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -434,6 +434,10 @@ space does not end a sentence, so don't break a line there." (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)