diff --git a/lisp/ob.el b/lisp/ob.el index 7b9bd6079..44808faab 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -863,9 +863,7 @@ may be specified in the properties of the current outline entry." (mapcar (lambda (header-arg) (and (setq val - (or (condition-case nil - (org-entry-get (point) header-arg t) - (error nil)) + (or (org-entry-get (point) header-arg t) (cdr (assoc header-arg org-file-properties)))) (cons (intern (concat ":" header-arg)) (org-babel-read val)))) diff --git a/lisp/org-table.el b/lisp/org-table.el index 951bff706..bf7a876b6 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -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: ")) diff --git a/lisp/org.el b/lisp/org.el index a63b7430c..0a5623b36 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -8401,9 +8401,7 @@ For file links, arg negates `org-context-in-file-links'." (interactive-p) (not custom-id)) (and org-link-to-org-use-id - (condition-case nil - (org-entry-get nil "ID") - (error nil))))) + (org-entry-get nil "ID")))) ;; We can make a link using the ID. (setq link (condition-case nil (prog1 (org-id-store-link)