From: Michael Brand <michael.ch.brand@gmail.com>
To: Nicolas Goaziou <n.goaziou@gmail.com>
Cc: Org Mode <emacs-orgmode@gnu.org>
Subject: Re: [BUG] org-fill-paragraph on #+TBLNAME
Date: Fri, 26 Apr 2013 17:10:42 +0200 [thread overview]
Message-ID: <CALn3zoiuu+7Z97gHOf6uh=4ToHp5zhC9eWrLxqb5zo=Un-o7Qw@mail.gmail.com> (raw)
In-Reply-To: <87mwsl75oz.fsf@gmail.com>
[-- Attachment #1: Type: text/plain, Size: 236 bytes --]
Hi Nicolas
On Fri, Apr 26, 2013 at 4:00 PM, Nicolas Goaziou <n.goaziou@gmail.com> wrote:
> Thanks for your patch. While you're at it, would you mind providing
> a test for it?
Ok, the attached patch replaces my previous one.
Michael
[-- Attachment #2: 0001-Allow-also-NAME-table-for-remote-references.patch.txt --]
[-- Type: text/plain, Size: 4084 bytes --]
From 44b14cac0276888d46c89336f6b8cf0793c05105 Mon Sep 17 00:00:00 2001
From: Michael Brand <michael.ch.brand@gmail.com>
Date: Fri, 26 Apr 2013 17:07:55 +0200
Subject: [PATCH] Allow also "#+NAME: table" for remote references
* lisp/org-table.el (org-table-get-remote-range): Extend regexp to
match "#+NAME: table" additionally to "#+TBLNAME: table".
* testing/lisp/test-org-table.el: Add test.
* testing/org-test.el (org-test-table-target-expect): Allow several
tables to support testing remote references in the last table.
---
lisp/org-table.el | 3 ++-
testing/lisp/test-org-table.el | 18 ++++++++++++++++++
testing/org-test.el | 23 ++++++++++++-----------
3 files changed, 32 insertions(+), 12 deletions(-)
diff --git a/lisp/org-table.el b/lisp/org-table.el
index 93c33b2..8e461c8 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -4996,7 +4996,8 @@ list of the fields in the rectangle."
(save-excursion
(goto-char (point-min))
(if (re-search-forward
- (concat "^[ \t]*#\\+tblname:[ \t]*" (regexp-quote name-or-id) "[ \t]*$")
+ (concat "^[ \t]*#\\+\\(tbl\\)?name:[ \t]*"
+ (regexp-quote name-or-id) "[ \t]*$")
nil t)
(setq buffer (current-buffer) loc (match-beginning 0))
(setq id-loc (org-id-find name-or-id 'marker))
diff --git a/testing/lisp/test-org-table.el b/testing/lisp/test-org-table.el
index 732ddb3..52cdc74 100644
--- a/testing/lisp/test-org-table.el
+++ b/testing/lisp/test-org-table.el
@@ -770,6 +770,24 @@ reference (with row). Mode string N."
;; "Remote reference."
;; (should
;; (string= "$3 = remote(FOO, @@#$2)" (org-table-convert-refs-to-rc "C& = remote(FOO, @@#B&)"))))
+
+(ert-deftest test-org-table/remote-reference-access ()
+ "Access to remote reference."
+ (org-test-table-target-expect
+ "
+#+NAME: table
+| | 42 |
+
+| replace | |
+"
+ "
+#+NAME: table
+| | 42 |
+
+| 42 | |
+"
+ 1 "#+TBLFM: $1 = remote(table, @1$2)"))
+
(ert-deftest test-org-table/org-at-TBLFM-p ()
(org-test-with-temp-text-in-file
"
diff --git a/testing/org-test.el b/testing/org-test.el
index 0c9ca58..8c81115 100644
--- a/testing/org-test.el
+++ b/testing/org-test.el
@@ -239,15 +239,14 @@ get the table stable. Anyhow, if LAPS is 'iterate then iterate,
but this will run one recalculation longer. When EXPECT is nil
it will be set to TARGET.
-If running a test interactively in ERT is not enough and you need
-to examine the target table with e. g. the Org formula debugger
-or an Emacs Lisp debugger (e. g. with point in a data field and
-calling the instrumented `org-table-eval-formula') then copy and
-paste the table with formula from the ERT results buffer or
-temporarily substitute the `org-test-with-temp-text' of this
-function with `org-test-with-temp-text-in-file'.
-
-Consider setting `pp-escape-newlines' to nil manually."
+When running a test interactively in ERT is not enough and you
+need to examine the target table with e. g. the Org formula
+debugger or an Emacs Lisp debugger (e. g. with point in a data
+field and calling the instrumented `org-table-eval-formula') then
+copy and paste the table with formula from the ERT results buffer
+or temporarily substitute the `org-test-with-temp-text' of this
+function with `org-test-with-temp-text-in-file'. Also consider
+setting `pp-escape-newlines' to nil manually."
(require 'pp)
(let ((back pp-escape-newlines) (current-tblfm))
(unless tblfm
@@ -256,9 +255,11 @@ Consider setting `pp-escape-newlines' to nil manually."
(unless expect (setq expect target))
(while (setq current-tblfm (pop tblfm))
(org-test-with-temp-text (concat target current-tblfm)
- ;; Search table, stop ERT at end of buffer if not found.
+ ;; Search the last of possibly several tables, let the ERT
+ ;; test fail if not found.
+ (goto-char (point-max))
(while (not (org-at-table-p))
- (should (eq 0 (forward-line))))
+ (should (eq 0 (forward-line -1))))
(when laps
(if (and (symbolp laps) (eq laps 'iterate))
(should (org-table-recalculate 'iterate t))
--
1.8.1.2
next prev parent reply other threads:[~2013-04-26 15:10 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-04-25 12:36 [BUG] org-fill-paragraph on #+TBLNAME Michael Brand
2013-04-26 12:31 ` Nicolas Goaziou
2013-04-26 12:58 ` Michael Brand
2013-04-26 13:03 ` Nicolas Goaziou
2013-04-26 13:31 ` Michael Brand
2013-04-26 14:00 ` Nicolas Goaziou
2013-04-26 15:10 ` Michael Brand [this message]
2013-04-26 21:21 ` Nicolas Goaziou
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='CALn3zoiuu+7Z97gHOf6uh=4ToHp5zhC9eWrLxqb5zo=Un-o7Qw@mail.gmail.com' \
--to=michael.ch.brand@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=n.goaziou@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).