From 7a5f3fb5a5b638d9f45c83db477f3b0f7b54306b Mon Sep 17 00:00:00 2001 From: Konubinix Date: Wed, 20 Aug 2014 14:32:47 +0200 Subject: [PATCH] Make the regexp matching the beginning of a table more explicit * org-table.el (org-table-get-remote-range): Enhance regexp. TINYCHANGE --- lisp/org-table.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-table.el b/lisp/org-table.el index 7b910efb9..06a100815 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -42,7 +42,7 @@ (string backend &optional body-only ext-plist)) (declare-function aa2u "ext:ascii-art-to-unicode" ()) (declare-function calc-eval "calc" (str &optional separator &rest args)) - + (defvar orgtbl-mode) ; defined below (defvar orgtbl-mode-menu) ; defined when orgtbl mode get initialized (defvar constants-unit-system) @@ -2772,7 +2772,7 @@ not overwrite the stored one." (user-error "Invalid field specifier \"%s\"" (match-string 0 form))) (setq form (replace-match formrpl t t form))) - + (if lispp (setq ev (condition-case nil (eval (eval (read form))) @@ -5057,7 +5057,7 @@ list of the fields in the rectangle." (widen) (goto-char loc) (forward-char 1) - (unless (and (re-search-forward "^\\(\\*+ \\)\\|[ \t]*|" nil t) + (unless (and (re-search-forward "^\\(\\*+ \\)\\|^[ \t]*|" nil t) (not (match-beginning 1))) (user-error "Cannot find a table at NAME or ID %s" name-or-id)) (setq tbeg (point-at-bol)) -- 2.11.4.GIT