Mercurial > emacs
comparison lisp/textmodes/fill.el @ 53723:31efc669b404
(fill-delete-newlines): Don't add a space if a
setence ends with one of a character in
sentence-end-without-space.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 27 Jan 2004 07:34:18 +0000 |
| parents | 695cf19ef79e |
| children | fd1d1c7abf54 |
comparison
equal
deleted
inserted
replaced
| 53722:4f64eb1ea148 | 53723:31efc669b404 |
|---|---|
| 421 ((not colon-double-space) (concat sentence-end "$")) | 421 ((not colon-double-space) (concat sentence-end "$")) |
| 422 ;; Try to add the : inside the `sentence-end' regexp. | 422 ;; Try to add the : inside the `sentence-end' regexp. |
| 423 ((string-match "\\[[^][]*\\(\\.\\)[^][]*\\]" sentence-end) | 423 ((string-match "\\[[^][]*\\(\\.\\)[^][]*\\]" sentence-end) |
| 424 (concat (replace-match ".:" nil nil sentence-end 1) "$")) | 424 (concat (replace-match ".:" nil nil sentence-end 1) "$")) |
| 425 ;; Can't find the right spot to insert the colon. | 425 ;; Can't find the right spot to insert the colon. |
| 426 (t "[.?!:][])}\"']*$")))) | 426 (t "[.?!:][])}\"']*$"))) |
| 427 (sentence-end-without-space-list | |
| 428 (string-to-list sentence-end-without-space))) | |
| 427 (while (re-search-forward eol-double-space-re to t) | 429 (while (re-search-forward eol-double-space-re to t) |
| 428 (or (>= (point) to) (memq (char-before) '(?\t ?\ )) | 430 (or (>= (point) to) (memq (char-before) '(?\t ?\ )) |
| 431 (memq (char-after (match-beginning 0)) | |
| 432 sentence-end-without-space-list) | |
| 429 (insert-and-inherit ?\ )))) | 433 (insert-and-inherit ?\ )))) |
| 430 | 434 |
| 431 (goto-char from) | 435 (goto-char from) |
| 432 (if enable-multibyte-characters | 436 (if enable-multibyte-characters |
| 433 ;; Delete unnecessay newlines surrounded by words. The | 437 ;; Delete unnecessay newlines surrounded by words. The |