diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2014-03-25 16:06:46 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2014-03-25 16:06:46 +0100 |
commit | cd9685cd1075dbc8848095dab0147c5607e81c7b (patch) | |
tree | 851fa626508473b22b9c4bfa92a7880f17d92536 | |
parent | 71ee4425b6e17b1e48b9cc259f488c47c17e732e (diff) | |
download | org-mode-cd9685cd1075dbc8848095dab0147c5607e81c7b.tar.gz |
ox-publish: Fix code typo (take 3)
* lisp/ox-publish.el (org-publish-cache-file-needs-publishing): Fix
code typo.
-rw-r--r-- | lisp/ox-publish.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ox-publish.el b/lisp/ox-publish.el index f60678e..28a6d7f 100644 --- a/lisp/ox-publish.el +++ b/lisp/ox-publish.el @@ -1169,9 +1169,11 @@ the file including them will be republished as well." (let* ((element (org-element-at-point)) (included-file (and (eq (org-element-type element) 'keyword) - (string-match "^\\(\".+?\"\\|\\S-+\\)" - (org-element-property :value element)) - (org-remove-double-quotes (match-string 1))))) + (let ((value (org-element-property :value element))) + (and value + (string-match "^\\(\".+?\"\\|\\S-+\\)" value) + (org-remove-double-quotes + (match-string 1 value))))))) (when included-file (add-to-list 'included-files-ctime (org-publish-cache-ctime-of-src |