|
@@ -520,14 +520,9 @@ property, locally or anywhere up in the hierarchy."
|
|
|
(let* ((beg (org-table-begin))
|
|
|
(end (org-table-end))
|
|
|
(txt (buffer-substring-no-properties beg end))
|
|
|
- (file (or file
|
|
|
- (condition-case nil
|
|
|
- (org-entry-get beg "TABLE_EXPORT_FILE" t)
|
|
|
- (error nil))))
|
|
|
- (format (or format
|
|
|
- (condition-case nil
|
|
|
- (org-entry-get beg "TABLE_EXPORT_FORMAT" t)
|
|
|
- (error nil))))
|
|
|
+ (file (or file (org-entry-get beg "TABLE_EXPORT_FILE" t)))
|
|
|
+ (format (or format
|
|
|
+ (org-entry-get beg "TABLE_EXPORT_FORMAT" t)))
|
|
|
buf deffmt-readable)
|
|
|
(unless file
|
|
|
(setq file (read-file-name "Export table to: "))
|