# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1258329741 0
# Node ID 05e547365764bc384f67ae4ff30a82d6ad58fcc0
# Parent  f0c7d6481a537d160dc380d16ffb2e9a22ea6bed
(calc-get-operator): Add `calc-symclip'.
(calc-b-oper-keys): Add `calc-symclip' to list.

diff -r f0c7d6481a53 -r 05e547365764 lisp/calc/calc-map.el
--- a/lisp/calc/calc-map.el	Mon Nov 16 00:01:57 2009 +0000
+++ b/lisp/calc/calc-map.el	Mon Nov 16 00:02:21 2009 +0000
@@ -308,6 +308,7 @@
 				( ?d 2 calcFunc-diff )
 				( ?n 1 calcFunc-not )
 				( ?c 1 calcFunc-clip )
+				( ?s 1 calcFunc-symclip )
 				( ?l 2 calcFunc-lsh )
 				( ?r 2 calcFunc-rsh )
 				( ?L 2 calcFunc-ash )
@@ -508,7 +509,7 @@
 		 "SHIFT + Abs, conJ, arG; maX, miN; Floor, Round; sQrt"
 		 "SHIFT + Inv, Hyp; Sin, Cos, Tan; Exp, Ln, logB"
 		 "Algebra + Simp, Esimp, Deriv, Integ, !, =, etc."
-		 "Binary + And, Or, Xor, Diff; l/r/t/L/R shifts; Not, Clip"
+		 "Binary + And, Or, Xor, Diff; l/r/t/L/R shifts; Not, Clip, Symclip"
 		 "Conversions + Deg, Rad, HMS; Float; SHIFT + Fraction"
 		 "Functions + Re, Im; Hypot; Mant, Expon, Scale; etc."
 		 "Kombinatorics + Dfact, Lcm, Gcd, Choose; Random; etc."