1 new commit in XEmacs:
https://bitbucket.org/xemacs/xemacs/commits/00a421d2b2ba/
Changeset: 00a421d2b2ba
User: stephen_at_xemacs
Date: 2013-06-21 11:45:06
Summary: Fix no-Mule build.
* paragraphs.el (sentence-end): Use octal, not Unicode, escapes.
* (sentence-end-base): Use non-ASCII only in Mule.
Affected #: 2 files
diff -r a2912073be852d27a0589444677b96ad7027f2e3 -r
00a421d2b2ba037982b0eb7b557225abc9b6c4ae lisp/ChangeLog
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2013-06-21 Stephen J. Turnbull <stephen(a)xemacs.org>
+
+ Fix no-Mule build.
+
+ * paragraphs.el (sentence-end): Use octal, not Unicode, escapes.
+ * (sentence-end-base): Use non-ASCII only in Mule.
+
2013-06-17 Aidan Kehoe <kehoea(a)parhasard.net>
* process.el (process-synchronize-point): Moved to a label.
diff -r a2912073be852d27a0589444677b96ad7027f2e3 -r
00a421d2b2ba037982b0eb7b557225abc9b6c4ae lisp/paragraphs.el
--- a/lisp/paragraphs.el
+++ b/lisp/paragraphs.el
@@ -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) (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."
Repository URL:
https://bitbucket.org/xemacs/xemacs/
--
This is a commit notification from
bitbucket.org. You are receiving
this because you have the service enabled, addressing the recipient of
this email.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches