--- texinfmt.el~	2012-04-09 21:53:08.339416000 +0000
+++ texinfmt.el	2012-04-12 01:39:35.713076600 +0000
@@ -1085,7 +1085,8 @@
     (while (/= (preceding-char) ?\})
       (skip-chars-forward " \t\n")
       (setq beg (point))
-      (re-search-forward "[},]")
+      (while (and (re-search-forward "[},]" nil t)
+		  (get-text-property (match-beginning 0) 'ignore)))
       (setq next (point))
       (forward-char -1)
       (skip-chars-backward " \t\n")
@@ -1379,6 +1380,15 @@
   (texinfo-discard-command))
 
 
+;;; @comma
+
+(put 'comma 'texinfo-format 'texinfo-format-comma)
+(defun texinfo-format-comma ()
+  (texinfo-parse-arg-discard)
+  (insert ",")
+  (put-text-property (1- (point)) (point) 'ignore t))
+
+
 ;;; @kbdinputstyle, @vskip, headings & footings
 ;;  These commands for not for Info and should never
 ;;  appear in an Info environment; but if they do,