瀏覽代碼

Merge branch 'maint'

Kyle Meyer 5 年之前
父節點
當前提交
b359de549e
共有 1 個文件被更改,包括 3 次插入1 次删除
  1. 3 1
      lisp/ob-core.el

+ 3 - 1
lisp/ob-core.el

@@ -3098,7 +3098,9 @@ of `org-babel-temporary-directory'."
 		    (delete-file file)))
 		    (delete-file file)))
 		;; We do not want to delete "." and "..".
 		;; We do not want to delete "." and "..".
 		(directory-files org-babel-temporary-directory 'full
 		(directory-files org-babel-temporary-directory 'full
-				 "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*"))
+				 ;; Note: Use `any' for compatibility
+				 ;; with Emacs < 27.
+				 (rx (or (not (any ".")) "..."))))
 	  (delete-directory org-babel-temporary-directory))
 	  (delete-directory org-babel-temporary-directory))
       (error
       (error
        (message "Failed to remove temporary Org-babel directory %s"
        (message "Failed to remove temporary Org-babel directory %s"