[gentoo-commits] gentoo-x86 commit in app-editors/xemacs/files: xemacs-21.5.33-no-mule-build.patch

[gentoo-commits] gentoo-x86 commit in app-editors/xemacs/files: xemacs-21.5.33-no-mule-build.patch

[Mats Lidell (matsl)]

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."