From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Jonathan Yavner <jyavner_BulkUCE@member.fsf.org>
Newsgroups: gmane.emacs.help
Subject: Re: blank cells in ses range
Date: Mon, 29 Nov 2004 12:05:05 -0500
Message-ID: <pan.2004.11.29.17.05.05.369097@member.fsf.org>
References: <kx9sm6wmi2c.fsf@panix5.panix.com>
	<jwvr7mf6j8u.fsf-monnier+gnu.emacs.help@gnu.org>
	<kx9sm6u4wui.fsf@panix5.panix.com>
	<jwvmzx066o7.fsf-monnier+gnu.emacs.help@gnu.org>
NNTP-Posting-Host: deer.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: sea.gmane.org 1101747949 16015 80.91.229.6 (29 Nov 2004 17:05:49 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Mon, 29 Nov 2004 17:05:49 +0000 (UTC)
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Mon Nov 29 18:05:44 2004
Return-path: <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Original-Received: from lists.gnu.org ([199.232.76.165])
	by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 1CYoy7-0005fU-00
	for <geh-help-gnu-emacs@m.gmane.org>; Mon, 29 Nov 2004 18:05:44 +0100
Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.33)
	id 1CYp7T-00062V-6t
	for geh-help-gnu-emacs@m.gmane.org; Mon, 29 Nov 2004 12:15:23 -0500
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!logbridge.uoregon.edu!arclight.uoregon.edu!wn14feed!worldnet.att.net!216.196.98.144!border2.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!local1.nntp.dca.giganews.com!nntp.comcast.com!news.comcast.com.POSTED!not-for-mail
Original-NNTP-Posting-Date: Mon, 29 Nov 2004 11:05:05 -0600
Original-Newsgroups: gnu.emacs.help
Original-Lines: 10
Original-NNTP-Posting-Host: 68.45.81.14
Original-X-Trace: sv3-usRDMGuJuyGPcQQvUkkyQUOEvhR7QHyhejG3etSFA75xfJ4uI5dimKPuXmRGpxZOeS+vtALEZ085gvE!D5xPXitwFoIPyiKP3NqkcmXWD6nk09hWZfBfrpKXimeFX1im/VXXl+dlja5rhQa/8N2E/8ybgA==
Original-X-Complaints-To: abuse@comcast.net
X-DMCA-Complaints-To: dmca@comcast.net
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint
	properly
X-Postfilter: 1.3.20
Original-Xref: shelby.stanford.edu gnu.emacs.help:127025
Original-To: help-gnu-emacs@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/help-gnu-emacs>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Xref: main.gmane.org gmane.emacs.help:22428
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:22428

> how to specify a printer function which will insert a comma separator.

(defun format-with-commas (x)
  (setq x (number-to-string x))
  (while (string-match "\\([0-9]\\)\\([0-9][0-9][0-9]\\)\\([,.]\\|\\'\\)" x)
    (setq x (replace-match "\\1,\\2\\3" t nil x)))
  x)

It would be nicer if one could just say (format "%'d" x), but that's a can
of worms since the \' operator doesn't do anything in the POSIX locale.