[Pkg-ocaml-maint-commits] r1392 - trunk/packages/tuareg-mode/trunk/debian/patches

[Ralf Treinen]

Author: treinen
Date: 2005-06-01 20:18:36 +0000 (Wed, 01 Jun 2005)
New Revision: 1392

Modified:
   trunk/packages/tuareg-mode/trunk/debian/patches/00list
   trunk/packages/tuareg-mode/trunk/debian/patches/04_charsetp.dpatch
Log:
Patch 04_charset now correct.


Modified: trunk/packages/tuareg-mode/trunk/debian/patches/00list
===================================================================
--- trunk/packages/tuareg-mode/trunk/debian/patches/00list	2005-06-01 20:07:27 UTC (rev 1391)
+++ trunk/packages/tuareg-mode/trunk/debian/patches/00list	2005-06-01 20:18:36 UTC (rev 1392)
@@ -1,4 +1,4 @@
 01_camldebug
 02_localdoc
 03_fontlock
-04_charsetp
\ No newline at end of file
+04_charsetp

Modified: trunk/packages/tuareg-mode/trunk/debian/patches/04_charsetp.dpatch
===================================================================
--- trunk/packages/tuareg-mode/trunk/debian/patches/04_charsetp.dpatch	2005-06-01 20:07:27 UTC (rev 1391)
+++ trunk/packages/tuareg-mode/trunk/debian/patches/04_charsetp.dpatch	2005-06-01 20:18:36 UTC (rev 1392)
@@ -1,20 +1,18 @@
 #! /bin/sh /usr/share/dpatch/dpatch-run
 ## 04_charsetp.dpatch by Ralf Treinen <treinen@debian.org>
 ##
-## All lines beginning with `## DP:' are a description of the patch.
-## DP: avoid compilation error due to unbound symbol charsetp
-## DP: with xemacs21-nomule (thanks to Meik Hellmund for the patch).
+## DP: Fixes compilation error under xemacs21-nomule due to unbound symbol
+## DP: charsetp. Thanks to Meik Hellmund for the patch.
 
 @DPATCH@
---- tuareg.el.orig
-+++ tuareg.el
-@@ -711,7 +711,7 @@
+--- tuareg-mode-1.45.0-beta1/tuareg.el
++++ /tmp/dpep.gH6NoU/tuareg-mode-1.45.0-beta1/tuareg.el
+@@ -707,7 +707,7 @@
  (defvar tuareg-font-lock-symbols-alist
    (append
     ;; The symbols can come from a JIS0208 font.
 -   (and (fboundp 'make-char) (charsetp 'japanese-jisx0208)
 +   (and (fboundp 'make-char) (fboundp 'charsetp) (charsetp 'japanese-jisx0208)
-        (list (cons "fun" (make-char 'japanese-jisx0208 38 75))
-              (cons "sqrt" (make-char 'japanese-jisx0208 34 101))
-              (cons "not" (make-char 'japanese-jisx0208 34 76))
-
+ 	(list (cons "fun" (make-char 'japanese-jisx0208 38 75))
+ 	      (cons "sqrt" (make-char 'japanese-jisx0208 34 101))
+ 	      (cons "not" (make-char 'japanese-jisx0208 34 76))