diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-05-02 11:32:17 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-05-02 11:32:17 +0200 |
| commit | e5eda0beeb3b6b0666550091bcc0df066d52c008 (patch) | |
| tree | 9266c618f39cba02fb817cb792a85f41a97f97ff | |
| parent | d23bd9187458a76e69763a603f4542b7c352c896 (diff) | |
| download | org-mode-e5eda0beeb3b6b0666550091bcc0df066d52c008.tar.gz | |
table: Tiny clean-up
* lisp/org-table.el (org-table-export): Remove unnecessary calls to
`buffer-substring-no-properties'.
| -rw-r--r-- | lisp/org-table.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/org-table.el b/lisp/org-table.el index 8c1549d..4838624 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -4302,9 +4302,7 @@ extension of the given file name, and finally on the variable (let ((transform (intern (match-string 1 format))) (params (and (match-end 2) (read (concat "(" (match-string 2 format) ")")))) - (table (org-table-to-lisp - (buffer-substring-no-properties - (org-table-begin) (org-table-end))))) + (table (org-table-to-lisp))) (unless (fboundp transform) (user-error "No such transformation function %s" transform)) (let (buf) @@ -5479,9 +5477,7 @@ for this table." ;; when non-interactive, we assume align has just happened. (when (called-interactively-p 'any) (org-table-align)) (let ((dests (orgtbl-gather-send-defs)) - (table (org-table-to-lisp - (buffer-substring-no-properties (org-table-begin) - (org-table-end)))) + (table (org-table-to-lisp)) (ntbl 0)) (unless dests (if maybe (throw 'exit nil) |