Times <-> CenterDot

(* http://stackoverflow.com/questions/8353879 *)

Unprotect[CenterDot, Times];
(* ClearAll[CenterDot, Times] *)
CenterDot = Times;
Times /: MakeBoxes[Times[a__], fmt_] :=
  With[{slots = Array[Slot, Length[{a}]],
        rslots = Riffle[Array[Slot, Length[{a}]], "\[CenterDot]"],
        boxes = ToBoxes /@ {a}},
   TemplateBox[boxes, "CenterDot",
    DisplayFunction -> (RowBox[rslots] &),
    InterpretationFunction -> (RowBox[slots] &),
    Editable -> True, Selectable -> True]];
Protect[CenterDot, Times];