From mboxrd@z Thu Jan 1 00:00:00 1970 From: Dan Davison Subject: [PATCH] why is '-' not allowed in radio table name? Date: Sat, 17 Apr 2010 17:30:45 -0400 Message-ID: <87k4s53gxm.fsf@stats.ox.ac.uk> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1O3FbL-0003dh-KH for emacs-orgmode@gnu.org; Sat, 17 Apr 2010 17:30:55 -0400 Received: from [140.186.70.92] (port=53239 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1O3FbJ-0003cA-FB for emacs-orgmode@gnu.org; Sat, 17 Apr 2010 17:30:54 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1O3FbH-0008VU-Qi for emacs-orgmode@gnu.org; Sat, 17 Apr 2010 17:30:53 -0400 Received: from markov.stats.ox.ac.uk ([163.1.210.1]:50151) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1O3FbH-0008Uk-7N for emacs-orgmode@gnu.org; Sat, 17 Apr 2010 17:30:51 -0400 Received: from blackcap.stats.ox.ac.uk (blackcap.stats [163.1.210.5]) by markov.stats.ox.ac.uk (8.13.6/8.13.6) with ESMTP id o3HLUmeB022587 for ; Sat, 17 Apr 2010 22:30:48 +0100 (BST) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs org-mode mailing list I was using a radio table to convert an org table to texinfo, and got stuck for a bit until looking at the code and seeing that the name used for the radio table can not contain '-' (only letters, numbers and underscore). Is there a reason for this restriction? An alternative regexp is below (which also allows tabs as whitespace). Dan Modified lisp/org-table.el diff --git a/lisp/org-table.el b/lisp/org-table.el index 5839203..1d463a0 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -3800,7 +3800,7 @@ a radio table." (goto-char (org-table-begin)) (let (rtn) (beginning-of-line 0) - (while (looking-at "[ \t]*#\\+ORGTBL[: \t][ \t]*SEND +\\([a-zA-Z0-9_]+\\) +\\([^ \t\r\n]+\\)\\( +.*\\)?") + (while (looking-at "[ \t]*#\\+ORGTBL[: \t][ \t]*SEND[ \t]+\\([^ \t\r\n]+\\)[ \t]+\\([^ \t\r\n]+\\)\\([ \t]+.*\\)?") (let ((name (org-no-properties (match-string 1))) (transform (intern (match-string 2))) (params (if (match-end 3)