浏览代码

Merge branch 'maint'

Nicolas Goaziou 9 年之前
父节点
当前提交
3e68159c3a
共有 1 个文件被更改,包括 4 次插入2 次删除
  1. 4 2
      lisp/ox-publish.el

+ 4 - 2
lisp/ox-publish.el

@@ -1244,8 +1244,10 @@ the file including them will be republished as well."
 		       (let ((value (org-element-property :value element)))
 			 (and value
 			      (string-match "^\\(\".+?\"\\|\\S-+\\)" value)
-			      (org-remove-double-quotes
-			       (match-string 1 value)))))))
+			      ;; Ignore search suffix.
+			      (car (split-string
+				    (org-remove-double-quotes
+				     (match-string 1 value)))))))))
 	    (when included-file
 	      (push (org-publish-cache-ctime-of-src
 		     (expand-file-name included-file))