mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-28 07:44:49 +00:00
Code

table: Tiny clean-up

Browse Source 
* lisp/org-table.el (org-table-export): Remove unnecessary calls to
`buffer-substring-no-properties'.
This commit is contained in:
Nicolas Goaziou 2020-05-02 11:32:17 +02:00
parent d23bd91874
commit e5eda0beeb
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-table.el
View File

@ -4302,9 +4302,7 @@ extension of the given file name, and finally on the variable
(let ((transform (intern (match-string 1 format))) (let ((transform (intern (match-string 1 format)))
(params (and (match-end 2) (params (and (match-end 2)
(read (concat "(" (match-string 2 format) ")")))) (read (concat "(" (match-string 2 format) ")"))))
(table (org-table-to-lisp (table (org-table-to-lisp)))
(buffer-substring-no-properties
(org-table-begin) (org-table-end)))))
(unless (fboundp transform) (unless (fboundp transform)
(user-error "No such transformation function %s" transform)) (user-error "No such transformation function %s" transform))
(let (buf) (let (buf)
@ -5479,9 +5477,7 @@ for this table."
;; when non-interactive, we assume align has just happened. ;; when non-interactive, we assume align has just happened.
(when (called-interactively-p 'any) (org-table-align)) (when (called-interactively-p 'any) (org-table-align))
(let ((dests (orgtbl-gather-send-defs)) (let ((dests (orgtbl-gather-send-defs))
(table (org-table-to-lisp (table (org-table-to-lisp))
(buffer-substring-no-properties (org-table-begin)
(org-table-end))))
(ntbl 0)) (ntbl 0))
(unless dests (unless dests
(if maybe (throw 'exit nil) (if maybe (throw 'exit nil)