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)) |