* [gentoo-commits] gentoo-x86 commit in app-editors/xemacs/files: xemacs-21.5.33-no-mule-build.patch
@ 2013-06-26 22:52 Mats Lidell (matsl)
0 siblings, 0 replies; only message in thread
From: Mats Lidell (matsl) @ 2013-06-26 22:52 UTC (permalink / raw
To: gentoo-commits
matsl 13/06/26 22:52:02
Added: xemacs-21.5.33-no-mule-build.patch
Log:
Partial fix for bug #472162
(Portage version: 2.1.12.2/cvs/Linux i686, signed Manifest commit with key 0x377034660A5828DE!)
Revision Changes Path
1.1 app-editors/xemacs/files/xemacs-21.5.33-no-mule-build.patch
file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/app-editors/xemacs/files/xemacs-21.5.33-no-mule-build.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/app-editors/xemacs/files/xemacs-21.5.33-no-mule-build.patch?rev=1.1&content-type=text/plain
Index: xemacs-21.5.33-no-mule-build.patch
===================================================================
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."
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2013-06-26 22:52 UTC | newest]
Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-06-26 22:52 [gentoo-commits] gentoo-x86 commit in app-editors/xemacs/files: xemacs-21.5.33-no-mule-build.patch Mats Lidell (matsl)
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox