blob: 17e572044facc8a51a928d5dd592af64a2b82d79 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
diff -r a2912073be85 lisp/paragraphs.el
--- a/lisp/paragraphs.el Wed Jun 19 09:30:30 2013 -0600
+++ b/lisp/paragraphs.el Sat Jun 22 13:27:48 2013 +0200
@@ -180,7 +180,10 @@
:type '(choice regexp (const :tag "Use default value" nil)))
(put 'sentence-end 'safe-local-variable 'string-or-null-p)
-(defcustom sentence-end-base "[.?!][]\"'”)}]*"
+(defcustom sentence-end-base
+ (concat "[.?!][]\"'"
+ (if (featurep 'mule) (string (unicode-to-char #x201D)) "")
+ ")}]*")
"Regexp matching the basic end of a sentence, not including following space."
:group 'paragraphs
:type 'string
@@ -201,14 +204,14 @@
in between. See Info node `(elisp)Standard Regexps'."
(or sentence-end
;; We accept non-break space along with space.
- (concat (if sentence-end-without-period "\\w[ \u00a0][ \u00a0]\\|")
+ (concat (if sentence-end-without-period "\\w[ \240][ \240]\\|")
"\\("
sentence-end-base
(if sentence-end-double-space
- "\\($\\|[ \u00a0]$\\|\t\\|[ \u00a0][ \u00a0]\\)" "\\($\\|[\t \u00a0]\\)")
+ "\\($\\|[ \240]$\\|\t\\|[ \240][ \240]\\)" "\\($\\|[\t \240]\\)")
"\\|[" sentence-end-without-space "]+"
"\\)"
- "[ \u00a0\t\n]*")))
+ "[ \240\t\n]*")))
(defcustom page-delimiter "^\014"
"*Regexp describing line-beginnings that separate pages."
|
GitWeb
