From 34a500b327474ca1a70839cf767cd1071719bf8f Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 15 Dec 1999 00:52:08 +0000 Subject: [PATCH] (fill-find-break-point): Delete codes for composite characters. (fill-region-as-paragraph): Likewise. --- lisp/textmodes/fill.el | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index b622d55e092..e4bdb9db65e 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -295,13 +295,9 @@ If the charset has no such property, do nothing." (if (eq charset 'ascii) (setq ch (preceding-char) charset (char-charset ch))) - (if (eq charset 'ascii) - nil - (if (eq charset 'composition) - (setq charset (char-charset (composite-char-component ch 0))))) - (setq func (get-charset-property charset 'fill-find-break-point-function)) - (if (and func (fboundp func)) - (funcall func limit)))) + (setq func (get-charset-property charset 'fill-find-break-point-function)) + (if (and func (fboundp func)) + (funcall func limit)))) (defun fill-region-as-paragraph (from to &optional justify nosqueeze squeeze-after) @@ -445,10 +441,6 @@ 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) -- 2.39.5