Mercurial > emacs

changeset 26898:182d67795a5b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fill-find-break-point): Delete codes for composite characters. (fill-region-as-paragraph): Likewise.
author Kenichi Handa <handa@m17n.org>
date Wed, 15 Dec 1999 00:52:08 +0000
parents 9895d3c3e7ce
children 5d1bf698efc8
files lisp/textmodes/fill.el
diffstat 1 files changed, 3 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/fill.el	Wed Dec 15 00:50:58 1999 +0000
+++ b/lisp/textmodes/fill.el	Wed Dec 15 00:52:08 1999 +0000
@@ -295,13 +295,9 @@
     (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 @@
 	      (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)