Mercurial > emacs
comparison lisp/textmodes/paragraphs.el @ 66422:ee446efaafaf
(sentence-end-base): Use real chars, so as
not to unnecessarily expose emacs-mule's internal char codes.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 25 Oct 2005 04:56:18 +0000 |
parents | 15de85d4b7fe |
children | 067115a6e738 7beb78bc1f8e |
comparison
equal
deleted
inserted
replaced
66421:c5bb9ba4c102 | 66422:ee446efaafaf |
---|---|
157 function `sentence-end'. You should always use this function | 157 function `sentence-end'. You should always use this function |
158 to obtain the value of this variable." | 158 to obtain the value of this variable." |
159 :group 'paragraphs | 159 :group 'paragraphs |
160 :type '(choice regexp (const :tag "Use default value" nil))) | 160 :type '(choice regexp (const :tag "Use default value" nil))) |
161 | 161 |
162 (defcustom sentence-end-base "[.?!][]\"'\xd0c9\x5397d)}]*" | 162 (defcustom sentence-end-base "[.?!][]\"'$B!I$,1r}(B)}]*" |
163 "*Regexp matching the basic end of a sentence, not including following space." | 163 "*Regexp matching the basic end of a sentence, not including following space." |
164 :group 'paragraphs | 164 :group 'paragraphs |
165 :type 'string | 165 :type 'string |
166 :version "22.1") | 166 :version "22.1") |
167 | 167 |
500 (defun transpose-sentences (arg) | 500 (defun transpose-sentences (arg) |
501 "Interchange this (next) and previous sentence." | 501 "Interchange this (next) and previous sentence." |
502 (interactive "*p") | 502 (interactive "*p") |
503 (transpose-subr 'forward-sentence arg)) | 503 (transpose-subr 'forward-sentence arg)) |
504 | 504 |
505 ;;; Local Variables: | 505 ;; Local Variables: |
506 ;;; coding: iso-2022-7bit | 506 ;; coding: iso-2022-7bit |
507 ;;; End: | 507 ;; End: |
508 | 508 |
509 ;;; arch-tag: e727eb1a-527a-4464-b9d7-9d3ec0d1a575 | 509 ;; arch-tag: e727eb1a-527a-4464-b9d7-9d3ec0d1a575 |
510 ;;; paragraphs.el ends here | 510 ;;; paragraphs.el ends here |