diff options
author | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:31 +0200 |
---|---|---|
committer | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:31 +0200 |
commit | 52fbfeb04b10aa78f24f339a352fe1161c0b37e4 (patch) | |
tree | a3b147a3a2e4bb39c4ae36c0f442c6137ae506e2 /lisp/ox-publish.el | |
parent | 40ce6b75e6245659a3a14622356e32e7dd1125dd (diff) |
Imported Upstream version 8.2.4
Diffstat (limited to 'lisp/ox-publish.el')
-rw-r--r-- | lisp/ox-publish.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/ox-publish.el b/lisp/ox-publish.el index 906c819..d87326d 100644 --- a/lisp/ox-publish.el +++ b/lisp/ox-publish.el @@ -892,10 +892,11 @@ in another process." (interactive "P") (if async (org-export-async-start 'ignore - `(when ',force (org-publish-remove-all-timestamps)) - `(let ((org-publish-use-timestamps-flag - (if ',force nil ,org-publish-use-timestamps-flag))) - (org-publish-projects ',org-publish-project-alist))) + `(progn + (when ',force (org-publish-remove-all-timestamps)) + (let ((org-publish-use-timestamps-flag + (if ',force nil ,org-publish-use-timestamps-flag))) + (org-publish-projects ',org-publish-project-alist)))) (when force (org-publish-remove-all-timestamps)) (save-window-excursion (let ((org-publish-use-timestamps-flag @@ -1224,8 +1225,9 @@ Returns value on success, else nil." (let ((attr (file-attributes (expand-file-name (or (file-symlink-p file) file) (file-name-directory file))))) - (+ (lsh (car (nth 5 attr)) 16) - (cadr (nth 5 attr))))) + (if (not attr) (error "No such file: \"%s\"" file) + (+ (lsh (car (nth 5 attr)) 16) + (cadr (nth 5 attr)))))) (provide 'ox-publish) |