forked from mirrors/org-mode
org-babel-tangle: Do not overwrite when contents does not change
* lisp/ob-tangle.el (org-babel-tangle): Do not overwrite existing tangled files if their contents is exactly the same as we are going to write during tangle process. This avoids unneeded disk writes and can speed up tangling significantly when many small files are tangled from a single .org source. An example of performance improvement when tangling an .org file into ~200 files: (benchmark-run 10 (org-babel-tangle)) Before the commit (on SSD): (76.33826743 8 11.551725374) After the commit: (43.628606052 4 5.751274237)
This commit is contained in:
parent
a407a89c5f
commit
f6f26d4ce4
|
@ -282,11 +282,24 @@ matching a regular expression."
|
|||
lspecs)
|
||||
(when make-dir
|
||||
(make-directory fnd 'parents))
|
||||
(unless
|
||||
(and (file-exists-p file-name)
|
||||
(let ((tangle-buf (current-buffer)))
|
||||
(with-temp-buffer
|
||||
(insert-file-contents file-name)
|
||||
(and
|
||||
(equal (buffer-size)
|
||||
(buffer-size tangle-buf))
|
||||
(= 0
|
||||
(let (case-fold-search)
|
||||
(compare-buffer-substrings
|
||||
nil nil nil
|
||||
tangle-buf nil nil)))))))
|
||||
;; erase previous file
|
||||
(when (file-exists-p file-name)
|
||||
(delete-file file-name))
|
||||
(write-region nil nil file-name)
|
||||
(mapc (lambda (mode) (set-file-modes file-name mode)) modes)
|
||||
(mapc (lambda (mode) (set-file-modes file-name mode)) modes))
|
||||
(push file-name path-collector))))))
|
||||
(if (equal arg '(4))
|
||||
(org-babel-tangle-single-block 1 t)
|
||||
|
|
Loading…
Reference in a new issue