Change characters in maths-menu-menu to strings, hoping to fix compile

problem with older XEmacs (Trac #184).

1 files changed, 233 insertions, 233 deletions

diff --git a/lib/maths-menu.el b/lib/maths-menu.el
index edfb1b85..ef40535c 100644
--- a/lib/maths-menu.el
+++ b/lib/maths-menu.el
@@ -53,8 +53,8 @@
 	(define-key-after map (vector (intern name)) (cons name pane-map))
 	(dolist (elt pane)
 	  (define-key-after pane-map
-	    (vector (intern (string (car elt)))) ; convenient unique symbol
-	    (cons (format "%c  (%s)" (car elt) (cadr elt))
+	    (vector (intern (car elt))) ; convenient unique symbol
+	    (cons (format "%s  (%s)" (car elt) (cadr elt))
 		  ;; Using a string here doesn't work.  You get a
 		  ;; `Wrong type argument: commandp,' error.
 		  ;; That looks like a bug, since
@@ -67,247 +67,247 @@
 (defvar maths-menu-menu
   (maths-menu-build-menu
    '(("Binops 1"
-      (?,A1(B "plus-minus sign")
-      (?$,1x3(B "minus-or-plus sign")
-      (?,AW(B "multiplication sign")
-      (?,Aw(B "division sign")
-      (?$,1x2(B "minus sign")
-      (?$,1x7(B "asterisk operator")
-      (?$,1z&(B "star operator")
-      (?$,2"+(B "white circle")
-      (?$,1s"(B "bullet")
-      (?,A7(B "middle dot")
-      (?$,1xI(B "intersection")
-      (?$,1xJ(B "union")
-      (?$,1yN(B "multiset union")
-      (?$,1yS(B "square cap")
-      (?$,1yT(B "square cup")
-      (?$,1xH(B "logical or")
-      (?$,1xG(B "logical and")
-      (?$,1x6(B "set minus")
-      (?$,1x`(B "wreath product"))
+      (",A1(B" "plus-minus sign")
+      ("$,1x3(B" "minus-or-plus sign")
+      (",AW(B" "multiplication sign")
+      (",Aw(B" "division sign")
+      ("$,1x2(B" "minus sign")
+      ("$,1x7(B" "asterisk operator")
+      ("$,1z&(B" "star operator")
+      ("$,2"+(B" "white circle")
+      ("$,1s"(B" "bullet")
+      (",A7(B" "middle dot")
+      ("$,1xI(B" "intersection")
+      ("$,1xJ(B" "union")
+      ("$,1yN(B" "multiset union")
+      ("$,1yS(B" "square cap")
+      ("$,1yT(B" "square cup")
+      ("$,1xH(B" "logical or")
+      ("$,1xG(B" "logical and")
+      ("$,1x6(B" "set minus")
+      ("$,1x`(B" "wreath product"))
      ("Binops 2"
-      (?$,1z$(B "diamond operator")
-      (?$,2!s(B "white up-pointing triangle")
-      (?$,2!}(B "white down-pointing triangle")
-      (?$,2"#(B "white left-pointing small triangle")
-      (?$,2!y(B "white right-pointing small triangle")
-      (?$,2"!(B "white left-pointing triangle")
-      (?$,2!w(B "white right-pointing triangle")
-      (?$,1yU(B "circled plus")
-      (?$,1yV(B "circled minus")
-      (?$,1yW(B "circled times")
-      (?$,1yX(B "circled division slash")
-      (?$,1yY(B "circled dot operator")
-      (?$,2"O(B "large circle")
-      (?$,1s (B "dagger")
-      (?$,1s!(B "double dagger")
-      (?$,1yt(B "normal subgroup of or equal to")
-      (?$,1yu(B "contains as normal subgroup or equal to"))
+      ("$,1z$(B" "diamond operator")
+      ("$,2!s(B" "white up-pointing triangle")
+      ("$,2!}(B" "white down-pointing triangle")
+      ("$,2"#(B" "white left-pointing small triangle")
+      ("$,2!y(B" "white right-pointing small triangle")
+      ("$,2"!(B" "white left-pointing triangle")
+      ("$,2!w(B" "white right-pointing triangle")
+      ("$,1yU(B" "circled plus")
+      ("$,1yV(B" "circled minus")
+      ("$,1yW(B" "circled times")
+      ("$,1yX(B" "circled division slash")
+      ("$,1yY(B" "circled dot operator")
+      ("$,2"O(B" "large circle")
+      ("$,1s (B" "dagger")
+      ("$,1s!(B" "double dagger")
+      ("$,1yt(B" "normal subgroup of or equal to")
+      ("$,1yu(B" "contains as normal subgroup or equal to"))
      ("Relations 1"
-      (?$,1y$(B "less-than or equal to")
-      (?$,1y:(B "precedes")
-      (?$,1y*(B "much less-than")
-      (?$,1yB(B "subset of")
-      (?$,1yF(B "subset of or equal to")
-      (?$,1yO(B "square image of")
-      (?$,1yQ(B "square image of or equal to")
-      (?$,1x((B "element of")
-      (?$,1x)(B "not an element of")
-      (?$,1yb(B "right tack")
-      (?$,1y%(B "greater-than or equal to")
-      (?$,1y;(B "succeeds")
-      (?$,1y=(B "succeeds or equal to")
-      (?$,1y+(B "much greater-than")
-      (?$,1yC(B "superset of")
-      (?$,1yG(B "superset of or equal to")
-      (?$,1yP(B "square original of")
-      (?$,1yR(B "square original of or equal to")
-      (?$,1x+(B "contains as member")
-      (?$,1y!(B "identical to")
-      (?$,1y"(B "not identical to") )
+      ("$,1y$(B" "less-than or equal to")
+      ("$,1y:(B" "precedes")
+      ("$,1y*(B" "much less-than")
+      ("$,1yB(B" "subset of")
+      ("$,1yF(B" "subset of or equal to")
+      ("$,1yO(B" "square image of")
+      ("$,1yQ(B" "square image of or equal to")
+      ("$,1x((B" "element of")
+      ("$,1x)(B" "not an element of")
+      ("$,1yb(B" "right tack")
+      ("$,1y%(B" "greater-than or equal to")
+      ("$,1y;(B" "succeeds")
+      ("$,1y=(B" "succeeds or equal to")
+      ("$,1y+(B" "much greater-than")
+      ("$,1yC(B" "superset of")
+      ("$,1yG(B" "superset of or equal to")
+      ("$,1yP(B" "square original of")
+      ("$,1yR(B" "square original of or equal to")
+      ("$,1x+(B" "contains as member")
+      ("$,1y!(B" "identical to")
+      ("$,1y"(B" "not identical to") )
      ("Relations 2"
-      (?$,1yc(B "left tack")
-      (?$,1x\(B "tilde operator")
-      (?$,1xc(B "asymptotically equal to")
-      (?$,1xm(B "equivalent to")
-      (?$,1xh(B "almost equal to")
-      (?$,1xe(B "approximately equal to")
-      (?$,1y (B "not equal to")
-      (?$,1xp(B "approaches the limit")
-      (?$,1x=(B "proportional to")
-      (?$,1yg(B "models")
-      (?$,1xC(B "divides")
-      (?$,1xE(B "parallel to")
-      (?$,1z((B "bowtie")
-      (?$,1z((B "bowtie")
-      (?$,1{#(B "smile")
-      (?$,1{"(B "frown")
-      (?$,1xy(B "estimates")
-      (?$,1z_(B "z notation bag membership"))
+      ("$,1yc(B" "left tack")
+      ("$,1x\(B" "tilde operator")
+      ("$,1xc(B" "asymptotically equal to")
+      ("$,1xm(B" "equivalent to")
+      ("$,1xh(B" "almost equal to")
+      ("$,1xe(B" "approximately equal to")
+      ("$,1y (B" "not equal to")
+      ("$,1xp(B" "approaches the limit")
+      ("$,1x=(B" "proportional to")
+      ("$,1yg(B" "models")
+      ("$,1xC(B" "divides")
+      ("$,1xE(B" "parallel to")
+      ("$,1z((B" "bowtie")
+      ("$,1z((B" "bowtie")
+      ("$,1{#(B" "smile")
+      ("$,1{"(B" "frown")
+      ("$,1xy(B" "estimates")
+      ("$,1z_(B" "z notation bag membership"))
      ("Arrows"
-      (?$,1vp(B "leftwards arrow")
-      (?$,1wP(B "leftwards double arrow")
-      (?$,1vr(B "rightwards arrow")
-      (?$,1wR(B "rightwards double arrow")
-      (?$,1vt(B "left right arrow")
-      (?$,1wT(B "left right double arrow")
-      (?$,1w&(B "rightwards arrow from bar")
-      (?$,1w)(B "leftwards arrow with hook")
-      (?$,1w<(B "leftwards harpoon with barb upwards")
-      (?$,1w=(B "leftwards harpoon with barb downwards")
-      (?$,1wL(B "rightwards harpoon over leftwards harpoon")
-      (?$,1w&(B "rightwards arrow from bar")
-      (?$,1w*(B "rightwards arrow with hook")
-      (?$,1w@(B "rightwards harpoon with barb upwards")
-      (?$,1wA(B "rightwards harpoon with barb downwards")
-      (?$,1v}(B "rightwards wave arrow")
-      (?$,1vq(B "upwards arrow")
-      (?$,1wQ(B "upwards double arrow")
-      (?$,1vs(B "downwards arrow")
-      (?$,1wS(B "downwards double arrow")
-      (?$,1vu(B "up down arrow")
-      (?$,1vw(B "north east arrow")
-      (?$,1vx(B "south east arrow")
-      (?$,1vy(B "south west arrow")
-      (?$,1vv(B "north west arrow")
-      (?$,1w[(B "rightwards triple arrow"))
+      ("$,1vp(B" "leftwards arrow")
+      ("$,1wP(B" "leftwards double arrow")
+      ("$,1vr(B" "rightwards arrow")
+      ("$,1wR(B" "rightwards double arrow")
+      ("$,1vt(B" "left right arrow")
+      ("$,1wT(B" "left right double arrow")
+      ("$,1w&(B" "rightwards arrow from bar")
+      ("$,1w)(B" "leftwards arrow with hook")
+      ("$,1w<(B" "leftwards harpoon with barb upwards")
+      ("$,1w=(B" "leftwards harpoon with barb downwards")
+      ("$,1wL(B" "rightwards harpoon over leftwards harpoon")
+      ("$,1w&(B" "rightwards arrow from bar")
+      ("$,1w*(B" "rightwards arrow with hook")
+      ("$,1w@(B" "rightwards harpoon with barb upwards")
+      ("$,1wA(B" "rightwards harpoon with barb downwards")
+      ("$,1v}(B" "rightwards wave arrow")
+      ("$,1vq(B" "upwards arrow")
+      ("$,1wQ(B" "upwards double arrow")
+      ("$,1vs(B" "downwards arrow")
+      ("$,1wS(B" "downwards double arrow")
+      ("$,1vu(B" "up down arrow")
+      ("$,1vw(B" "north east arrow")
+      ("$,1vx(B" "south east arrow")
+      ("$,1vy(B" "south west arrow")
+      ("$,1vv(B" "north west arrow")
+      ("$,1w[(B" "rightwards triple arrow"))
      ("Symbols 1"
-      (?$,1uu(B "alef symbol") ; don't use letter alef (avoid bidi confusion)
-      (?$,1uO(B "planck constant over two pi")
-      (?$,1 Q(B "latin small letter dotless i")
-      (?$,1uS(B "script small l")
-      (?$,1uX(B "script capital p")
-      (?$,1u\(B "black-letter capital r")
-      (?$,1uQ(B "black-letter capital i")
-      (?$,1ug(B "inverted ohm sign")
-      (?$,1s2(B "prime")
-      (?$,1x%(B "empty set")
-      (?$,1x'(B "nabla")
-      (?$,1x:(B "square root")
-      (?$,1x;(B "cube root")
-      (?$,1yd(B "down tack")
-      (?$,1ye(B "up tack")
-      (?$,1x@(B "angle")
-      (?$,1x (B "for all")
-      (?$,1x#(B "there exists")
-      (?$,1x$(B "there does not exist")
-      (?,A,(B "not sign")
-      (?$,2#o(B "music sharp sign")
-      (?$,1x"(B "partial differential")
-      (?$,1x>(B "infinity") )
+      ("$,1uu(B" "alef symbol") ; don't use letter alef (avoid bidi confusion)
+      ("$,1uO(B" "planck constant over two pi")
+      ("$,1 Q(B" "latin small letter dotless i")
+      ("$,1uS(B" "script small l")
+      ("$,1uX(B" "script capital p")
+      ("$,1u\(B" "black-letter capital r")
+      ("$,1uQ(B" "black-letter capital i")
+      ("$,1ug(B" "inverted ohm sign")
+      ("$,1s2(B" "prime")
+      ("$,1x%(B" "empty set")
+      ("$,1x'(B" "nabla")
+      ("$,1x:(B" "square root")
+      ("$,1x;(B" "cube root")
+      ("$,1yd(B" "down tack")
+      ("$,1ye(B" "up tack")
+      ("$,1x@(B" "angle")
+      ("$,1x (B" "for all")
+      ("$,1x#(B" "there exists")
+      ("$,1x$(B" "there does not exist")
+      (",A,(B" "not sign")
+      ("$,2#o(B" "music sharp sign")
+      ("$,1x"(B" "partial differential")
+      ("$,1x>(B" "infinity") )
      ("Symbols 2"
-      (?$,2!a(B "white square")
-      (?$,2"'(B "white diamond")
-      (?$,2!u(B "white up-pointing small triangle")
-      (?$,1x1(B "n-ary summation")
-      (?$,1x/(B "n-ary product")
-      (?$,1x0(B "n-ary coproduct")
-      (?$,1xK(B "integral")
-      (?$,1xN(B "contour integral")
-      (?$,1z"(B "n-ary intersection")
-      (?$,1z#(B "n-ary union")
-      (?$,1z!(B "n-ary logical or")
-      (?$,1z (B "n-ary logical and")
-      (?$,1uU(B "double-struck capital n")
-      (?$,1uY(B "double-struck capital p")
-      (?$,1u](B "double-struck capital r")
-      (?$,1ud(B "double-struck capital z")
-      (?$,1uP(B "script capital i")
-      (?$,1![(B "latin small letter lambda with stroke")
-      (?$,1xT(B "therefore")
-      (?$,1s&(B "horizontal ellipsis")
-      (?$,1zO(B "midline horizontal ellipsis")
-      (?$,1zN(B "vertical ellipsis")
-      (?$,1zQ(B "down right diagonal ellipsis")
-      (?$,1zP(B "up right diagonal ellipsis")
-      (?$,2,!(B "z notation spot")
-      (?$,2,"(B "z notation type colon"))
+      ("$,2!a(B" "white square")
+      ("$,2"'(B" "white diamond")
+      ("$,2!u(B" "white up-pointing small triangle")
+      ("$,1x1(B" "n-ary summation")
+      ("$,1x/(B" "n-ary product")
+      ("$,1x0(B" "n-ary coproduct")
+      ("$,1xK(B" "integral")
+      ("$,1xN(B" "contour integral")
+      ("$,1z"(B" "n-ary intersection")
+      ("$,1z#(B" "n-ary union")
+      ("$,1z!(B" "n-ary logical or")
+      ("$,1z (B" "n-ary logical and")
+      ("$,1uU(B" "double-struck capital n")
+      ("$,1uY(B" "double-struck capital p")
+      ("$,1u](B" "double-struck capital r")
+      ("$,1ud(B" "double-struck capital z")
+      ("$,1uP(B" "script capital i")
+      ("$,1![(B" "latin small letter lambda with stroke")
+      ("$,1xT(B" "therefore")
+      ("$,1s&(B" "horizontal ellipsis")
+      ("$,1zO(B" "midline horizontal ellipsis")
+      ("$,1zN(B" "vertical ellipsis")
+      ("$,1zQ(B" "down right diagonal ellipsis")
+      ("$,1zP(B" "up right diagonal ellipsis")
+      ("$,2,!(B" "z notation spot")
+      ("$,2,"(B" "z notation type colon"))
      ("Delimiters"
-      (?\$,1zj(B "left floor")
-      (?\$,1zh(B "left ceiling")
-      (?\$,1{)(B "left-pointing angle bracket")
-      (?\$,1zk(B "right floor")
-      (?\$,1zi(B "right ceiling")
-      (?\$,1{*(B "right-pointing angle bracket")
-      (?\$,2=Z(B "left white square bracket")
-      (?\$,2=[(B "right white square bracket")
-      (?\$,2=J(B "left double angle bracket")
-      (?\$,2=K(B "right double angle bracket")
-      (?\$,2,'(B "z notation left image bracket")
-      (?\$,2,((B "z notation right image bracket")
-      (?\$,2,)(B "z notation left binding bracket")
-      (?\$,2,*(B "z notation right binding bracket"))
+      ("$,1zj(B" "left floor")
+      ("$,1zh(B" "left ceiling")
+      ("$,1{)(B" "left-pointing angle bracket")
+      ("$,1zk(B" "right floor")
+      ("$,1zi(B" "right ceiling")
+      ("$,1{*(B" "right-pointing angle bracket")
+      ("$,2=Z(B" "left white square bracket")
+      ("$,2=[(B" "right white square bracket")
+      ("$,2=J(B" "left double angle bracket")
+      ("$,2=K(B" "right double angle bracket")
+      ("$,2,'(B" "z notation left image bracket")
+      ("$,2,((B" "z notation right image bracket")
+      ("$,2,)(B" "z notation left binding bracket")
+      ("$,2,*(B" "z notation right binding bracket"))
      ("Greek LC"
-      (?$,1'1(B "alpha")
-      (?$,1'2(B "beta")
-      (?$,1'3(B "gamma")
-      (?$,1'4(B "delta")
-      (?$,1'5(B "epsilon")
-      (?$,1'6(B "zeta")
-      (?$,1'7(B "eta")
-      (?$,1'8(B "theta")
-      (?$,1'Q(B "theta symbol")
-      (?$,1'9(B "iota")
-      (?$,1':(B "kappa")
-      (?$,1';(B "lamda")
-      (?$,1'<(B "mu")
-      (?$,1'=(B "nu")
-      (?$,1'>(B "xi")
-      (?$,1'@(B "pi")
-      (?$,1'V(B "pi symbol")
-      (?$,1'A(B "rho")
-      (?$,1'q(B "rho symbol")
-      (?$,1'C(B "sigma")
-      (?$,1'B(B "final sigma")
-      (?$,1'D(B "tau")
-      (?$,1'E(B "upsilon")
-      (?$,1'F(B "phi")
-      (?$,1'U(B "phi symbol")
-      (?$,1'G(B "chi")
-      (?$,1'H(B "psi")
-      (?$,1'I(B "omega"))
+      ("$,1'1(B" "alpha")
+      ("$,1'2(B" "beta")
+      ("$,1'3(B" "gamma")
+      ("$,1'4(B" "delta")
+      ("$,1'5(B" "epsilon")
+      ("$,1'6(B" "zeta")
+      ("$,1'7(B" "eta")
+      ("$,1'8(B" "theta")
+      ("$,1'Q(B" "theta symbol")
+      ("$,1'9(B" "iota")
+      ("$,1':(B" "kappa")
+      ("$,1';(B" "lamda")
+      ("$,1'<(B" "mu")
+      ("$,1'=(B" "nu")
+      ("$,1'>(B" "xi")
+      ("$,1'@(B" "pi")
+      ("$,1'V(B" "pi symbol")
+      ("$,1'A(B" "rho")
+      ("$,1'q(B" "rho symbol")
+      ("$,1'C(B" "sigma")
+      ("$,1'B(B" "final sigma")
+      ("$,1'D(B" "tau")
+      ("$,1'E(B" "upsilon")
+      ("$,1'F(B" "phi")
+      ("$,1'U(B" "phi symbol")
+      ("$,1'G(B" "chi")
+      ("$,1'H(B" "psi")
+      ("$,1'I(B" "omega"))
      ("Greek UC"
-      (?$,1&s(B "Gamma")
-      (?$,1&t(B "Delta")
-      (?$,1&x(B "Theta")
-      (?$,1&{(B "Lamda")
-      (?$,1&~(B "Xi")
-      (?$,1' (B "Pi")
-      (?$,1'#(B "Sigma")
-      (?$,1'%(B "Upsilon")
-      (?$,1'&(B "Phi")
-      (?$,1'((B "Psi")
-      (?$,1')(B "Omega"))
+      ("$,1&s(B" "Gamma")
+      ("$,1&t(B" "Delta")
+      ("$,1&x(B" "Theta")
+      ("$,1&{(B" "Lamda")
+      ("$,1&~(B" "Xi")
+      ("$,1' (B" "Pi")
+      ("$,1'#(B" "Sigma")
+      ("$,1'%(B" "Upsilon")
+      ("$,1'&(B" "Phi")
+      ("$,1'((B" "Psi")
+      ("$,1')(B" "Omega"))
      ("Sub/super"
-      (?$,1s}(B "superscript left parenthesis")
-      (?$,1s~(B "superscript right parenthesis")
-      (?$,1sz(B "superscript plus sign")
-      (?$,1s{(B "superscript minus")
-      (?$,1sp(B "superscript zero")
-      (?,A9(B "superscript one")
-      (?,A2(B "superscript two")
-      (?,A3(B "superscript three")
-      (?$,1st(B "superscript four")
-      (?$,1su(B "superscript five")
-      (?$,1sv(B "superscript six")
-      (?$,1sw(B "superscript seven")
-      (?$,1sx(B "superscript eight")
-      (?$,1sy(B "superscript nine")
-      (?$,1t-(B "subscript left parenthesis")
-      (?$,1t.(B "subscript right parenthesis")
-      (?$,1t*(B "subscript plus sign")
-      (?$,1t+(B "subscript minus")
-      (?$,1t (B "subscript zero")
-      (?$,1t!(B "subscript one")
-      (?$,1t"(B "subscript two")
-      (?$,1t#(B "subscript three")
-      (?$,1t$(B "subscript four")
-      (?$,1t%(B "subscript five")
-      (?$,1t&(B "subscript six")
-      (?$,1t'(B "subscript seven")
-      (?$,1t((B "subscript eight")
-      (?$,1t)(B "subscript nine")))))
+      ("$,1s}(B" "superscript left parenthesis")
+      ("$,1s~(B" "superscript right parenthesis")
+      ("$,1sz(B" "superscript plus sign")
+      ("$,1s{(B" "superscript minus")
+      ("$,1sp(B" "superscript zero")
+      (",A9(B" "superscript one")
+      (",A2(B" "superscript two")
+      (",A3(B" "superscript three")
+      ("$,1st(B" "superscript four")
+      ("$,1su(B" "superscript five")
+      ("$,1sv(B" "superscript six")
+      ("$,1sw(B" "superscript seven")
+      ("$,1sx(B" "superscript eight")
+      ("$,1sy(B" "superscript nine")
+      ("$,1t-(B" "subscript left parenthesis")
+      ("$,1t.(B" "subscript right parenthesis")
+      ("$,1t*(B" "subscript plus sign")
+      ("$,1t+(B" "subscript minus")
+      ("$,1t (B" "subscript zero")
+      ("$,1t!(B" "subscript one")
+      ("$,1t"(B" "subscript two")
+      ("$,1t#(B" "subscript three")
+      ("$,1t$(B" "subscript four")
+      ("$,1t%(B" "subscript five")
+      ("$,1t&(B" "subscript six")
+      ("$,1t'(B" "subscript seven")
+      ("$,1t((B" "subscript eight")
+      ("$,1t)(B" "subscript nine")))))
 
 (defvar maths-menu-mode-map
   (let ((map (make-sparse-keymap)))