comparison lisp/textmodes/paragraphs.el @ 49949:098ddf9714e8

(sentence-end): Add Chinese and Japanese characters.

49948:d71b3dd652d7

(defcustom sentence-end
  (purecopy
   ;; This is a bit stupid since it's not auto-updated when the
   ;; other variables are changes, but it's still useful info.
   (concat (if sentence-end-without-period "\\w  \\|")
	   "[.?!][]\"')}]*"
	   (if sentence-end-double-space
	       "\\($\\| $\\|\t\\|  \\)" "\\($\\|[\t ]\\)")
	   "[ \t\n]*"))
  "*Regexp describing the end of a sentence.
The value includes the whitespace following the sentence.

(defun transpose-sentences (arg)
  "Interchange this (next) and previous sentence."
  (interactive "*p")
  (transpose-subr 'forward-sentence arg))

;;; paragraphs.el ends here

49949:098ddf9714e8

(defcustom sentence-end
  (purecopy
   ;; This is a bit stupid since it's not auto-updated when the
   ;; other variables are changes, but it's still useful info.
   (concat (if sentence-end-without-period "\\w  \\|")
	   "[.?!$B!#!%!)!*$A!##.#?#!$(0!$!%!)!*$(G!$!%!)!*(B][]\"')}]*"
	   (if sentence-end-double-space
	       "\\($\\| $\\|\t\\|  \\)" "\\($\\|[\t ]\\)")
	   "[ \t\n]*"))
  "*Regexp describing the end of a sentence.
The value includes the whitespace following the sentence.

(defun transpose-sentences (arg)
  "Interchange this (next) and previous sentence."
  (interactive "*p")
  (transpose-subr 'forward-sentence arg))

;;; Local Variables:
;;; coding: iso-2022-7bit
;;; End:

;;; paragraphs.el ends here