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