procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(fill-delete-newlines): Don't add a space if a

Browse source 
setence ends with one of a character in
sentence-end-without-space.
This commit is contained in:
Kenichi Handa 2004-01-27 07:34:35 +00:00
parent 21a3e65787
commit f43a0b9824
2 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -1,3 +1,12 @@
2004-01-27 Kenichi Handa <handa@m17n.org>
* textmodes/paragraphs.el (sentence-end-without-space): New variable.
(sentence-end): Define using sentence-end-without-space.
* textmodes/fill.el (fill-delete-newlines): Don't add a space if a
setence ends with one of a character in
sentence-end-without-space.
2004-01-26 Stefan Monnier <monnier@iro.umontreal.ca>
* font-lock.el (font-lock): Add jit-lock as explicit group member.

6
lisp/textmodes/fill.el
View file

@ -423,9 +423,13 @@ Point is moved to just past the fill prefix on the first line."
((string-match "\\[[^][]*\\(\\.\\)[^][]*\\]" sentence-end)
(concat (replace-match ".:" nil nil sentence-end 1) "$"))
;; Can't find the right spot to insert the colon.
(t "[.?!:][])}\"']*$"))))
(t "[.?!:][])}\"']*$")))
(sentence-end-without-space-list
(string-to-list sentence-end-without-space)))
(while (re-search-forward eol-double-space-re to t)
(or (>= (point) to) (memq (char-before) '(?\t ?\ ))
(memq (char-after (match-beginning 0))
sentence-end-without-space-list)
(insert-and-inherit ?\ ))))
(goto-char from)