diff options
| author | Kenichi Handa <[email protected]> | 1999-12-15 00:52:08 +0000 |
|---|---|---|
| committer | Kenichi Handa <[email protected]> | 1999-12-15 00:52:08 +0000 |
| commit | 34a500b327474ca1a70839cf767cd1071719bf8f (patch) | |
| tree | 47bccb399db27d671cbb042746bef272206b142c /lisp/textmodes | |
| parent | d169c89e684dae9ca76a4381d29957ee4997485d (diff) | |
(fill-find-break-point): Delete codes for
composite characters.
(fill-region-as-paragraph): Likewise.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/fill.el | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index b622d55e09..e4bdb9db65 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) |