Mercurial > emacs
comparison lisp/textmodes/fill.el @ 23993:d90d3da56713
(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.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 05 Jan 1999 02:39:31 +0000 |
parents | 78085d485d73 |
children | e80a549e7dd8 |
comparison
equal
deleted
inserted
replaced
23992:81b2d3ea98ed | 23993:d90d3da56713 |
---|---|
432 ;; character preceding a newline has text property | 432 ;; character preceding a newline has text property |
433 ;; `nospace-between-words'. | 433 ;; `nospace-between-words'. |
434 (while (search-forward "\n" nil t) | 434 (while (search-forward "\n" nil t) |
435 (let ((prev (char-before (match-beginning 0))) | 435 (let ((prev (char-before (match-beginning 0))) |
436 (next (following-char))) | 436 (next (following-char))) |
437 (if (cmpcharp prev) | |
438 (setq prev (composite-char-component prev 0))) | |
439 (if (cmpcharp next) | |
440 (setq next (composite-char-component next 0))) | |
437 (if (and (or (aref (char-category-set next) ?|) | 441 (if (and (or (aref (char-category-set next) ?|) |
438 (aref (char-category-set prev) ?|)) | 442 (aref (char-category-set prev) ?|)) |
439 (or (get-charset-property (char-charset prev) | 443 (or (get-charset-property (char-charset prev) |
440 'nospace-between-words) | 444 'nospace-between-words) |
441 (get-text-property (1- (match-beginning 0)) | 445 (get-text-property (1- (match-beginning 0)) |