(fill-text-properties-at): New function.

(fill-newline): Use fill-text-properties-at instead of
text-properties-at.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f123732ed9e149df0e975da1613a7e43bbd85d67..a0a670300dc484963b6786de367023e8fa440f9d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-03-31  Kenichi Handa  <handa@etlken2>
+
+       * textmodes/fill.el (fill-text-properties-at): New function.
+       (fill-newline): Use fill-text-properties-at instead of
+       text-properties-at.
+
 2005-03-31  Karl Berry  <karl@freefriends.org>
 
        * textmodes/tex-mode.el (tex-compile): shell-quote-argument,

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index ccd7f21f502688971f14b41bb3b78ff36682ddcd..c41145befc8e17cc86bc07375275b91b34147758 100644 (file)
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -539,6 +539,17 @@ The break position will be always after LINEBEG and generally before point."
            ;; Make sure we take SOMETHING after the fill prefix if any.
            (fill-find-break-point linebeg)))))
 
+;; Like text-properties-at but don't include `composition' property.
+(defun fill-text-properties-at (pos)
+  (let ((l (text-properties-at pos))
+       prop-list)
+    (while l
+      (unless (eq (car l) 'composition)
+       (setq prop-list
+             (cons (car l) (cons (cadr l) prop-list))))
+      (setq l (cddr l)))
+    prop-list))
+
 (defun fill-newline ()
   ;; Replace whitespace here with one newline, then
   ;; indent to left margin.
@@ -546,7 +557,7 @@ The break position will be always after LINEBEG and generally before point."
   (insert ?\n)
   ;; Give newline the properties of the space(s) it replaces
   (set-text-properties (1- (point)) (point)
-                      (text-properties-at (point)))
+                      (fill-text-properties-at (point)))
   (and (looking-at "\\( [ \t]*\\)\\(\\c|\\)?")
        (or (aref (char-category-set (or (char-before (1- (point))) ?\000)) ?|)
           (match-end 2))